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DAInamic is 5 years young. We celebrate 
this birthday with a special reduction 
offer and an anniversary Contest.See p 
255 for the contest-info. In his article 

Programmeertechnieken Frank  Druijff 
explains the use of  VARPTR and how DAI 
stores variables in RAM. The program 
cassette programmeur by S.Dubourg offers 
the solution to piogram audio 
recordings. The power of the recording 
System should be connected to the remote 
control of DAI cassette connector. (By 
means of a relay we assume). In his 
program Tijdberekeningen , Frank De 
Jonghe calculates calenders for a 
choosen year and calculates the day for 
a given date. Be careful with the 
program Selfdestroy of Rolf Schall : he 
can ruin the result of a whole weekend 
of typing... We regret we can not 
publish the contribution of Louis Gidney 
in multicolour, We can only assure you 
that the colours of the printout of his 
Integrex Colourjet 132 are beautiful! We 
ask Louis to supply more information 
about his activities with this 
colourprinter. Henk Rison gives you all 
the details on hisHigh Speed Loader1f 
you have some programs you need very 
often and you want no loading delays, 
then this project could be your 
solution. If you contact him, 
can supply you the print layout as well. 
By the way, I hope you like DAlnamic 
with the new facelift... Jan Boerrigter, 
another member of the Limburg-clan, 
continues to explore the facilities of 
the Commodore drive. Today's subject is 
Relative Files (well known as RANDOM 
ACCESS). If you have a lot of jobs to do 
and you don't know where to begin , the 
Critical Path Analysis program from 
Marc Antrop could be your solution. The 
computer will create the best possible 
solutions for you... 
available from our software library. 


maybe he 


This program is 
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With our anniversary reduction, this 
could be another bargain! As we 
mentioned a few issues ago, publishing 
in 2 colomns is much more comfortable to 
read. Frank Druijff created this small 
BASIC program to split a FWPtext file 
in 2 colomns. He even suggests that a 
machine-language routine might be 
available soon. Gilbert Pons asks 
everyone with cinema-allures to join his 
video team. This could be your way to 
Hollywood? J.Bathe offers another 
Epromprogrammer with the necessary soft. 
If you charge your TURTLE-BASIC program, 
you can see the demo created by Olivier 
Pattiniez: Demo Turtle-Basic .Disable 
Break during program run, and activate 
break in command mode: that's the result 
of the very small routine by Willi 
Herrmann. . Willy Coremans has extended 
his D-Basic with a complete new DISK 
BASIC . Now you can use your drive with 
maximum results for databases , file 
handling and so on. Soon available ! The 
Othello-Reversi freaks can test the 
stenght of their programs at the O.I 
championnat in Paris. Send a photocopy 
of the subscription leaflet to 0.1, and 
join the competition ,,, good luck! 
Referring to the article of Raymond 
Vanlathem, Jonathan Harlow gives some 
exta information about Random Numbers 
With Programmoteek you can make an 
inventory of all your DAI programs. Ås 
the program is rather long, you will 
find the program in Toolkit 7. Due to 
the many activities during the past 





months, we can not offer you a printed 
cicuit layout of the Low Cost Digitizer 
but here is the complete story. The 
result on page 253 equals the quality of 
our unit we bought last year ! The 
digitizer programs are also included in 
toolkit 7. TI hope you didn't trow away 
the old issues of DAlnamic: if you find 
the solution, and you are lucky, we will 
invite you to come and get a beautiful 
RGB-monitor ! 

till next issue... 
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De vorige keer eindigde ik met een 
aankondiging van de VARPTR, Nu zal ik 
deze vollediger behandelen en tevens 
daarbij van de gelegenheid gebruik 
maken U eens mee te laten kijken hoe 
deze zaken uitgevonden kunnen worden 
door een iegelijk die maar doorzet, 


ARP TR 


Het waard VARPTR is een samentrekking 
van de woorden VARiable PoinTeR. 

Deze naam wijst er al op dat we met 
de functie een variabele kunnen laten 
aanwijzen. We kennen bij de DAI ver- 
schillende soorten variabelen en voor 
dit verhaal is het nodig daar onder- 
scheid tussen te maken, 


We kennen de integer of geheel getals 
variabelen en de floating paint of 
drijvende komma getallen, 

Deze variabelen kunnen zowel op zich 
zelf staan als met andere samen in 
een array zitten. 

Naast deze getalvariabelen kennen we 
ook nog de tekstvariabelen en ook die 
kunnen zowel alleenstaand als in een 
array voorkomen, 


Opfrissen 


Om het onderzoeksverhaal niet al te 
lang te maken zal ik eerst een aantal 
relevante zaken (zo nodig) opfrissen. 


Bij de DAI zijn, in tegenstelling tot 
bijna alle andere computers, zowel 
voor de integer als de floating point 
variabelen vier bytes gereserveerd, 
Bij de meeste andere computers is er 
voor de integers maar een twee bytes 
ruimte, maar voor de floating point 
vaak vijf af meer, tot wel tien toe. 
Aantallen van zes of meer worden vaak 
met double precission (-dubbele nauw- 
keurigheid) aangeduid. 

Dit is ook de reden dat de DAI veel 
grotere getallen in integer aankan 
dan de meeste andere computers, maar 
met de nauwkeurigheid bij de floating 
point getallen het laat afweten. 


De namen en de type-identificatie van 
alle variabelen staan in de zogenaam- 
de symbol table . De waarde van de 


variabele staat bij de losse integer 
en floating pointer eveneens in de 
symbol table. 

De tekstvariabelen worden echter in 
de zogenaamde heap opgeslagen. 
Interpreteer dit laatste wel goed : 
de waarde van de variabele ( dus de 
tekst die er in staat ), die staat in 
de heap maar de naam van de variabele 
staat in de symbol table. 

De waarden, die getalsvariabelen heb- 
ben, die in een array zitten , staan 
ook in de heap. 


Onderzoek 


We zetten de machine uit (ON op OFF ! 
zetten of omgekeerd voor de bezitters 
van revisie 4) en niet RESET want dat 
is in dit geval echt iets anders. 

Dan zetten we de computer weer aan. 
We tikken UTCRETURN] in en komen zo 
in de utility. Om een aantal pointers 
te weten te komen tikken we in : 


We krijgen dan : 


@29H EC oi oo @1 EC 
@2A9 @3 ED oi EF oi 50 B3 


Hierin kunnen we het volgende aflezen 


29B-29C start heap is . 2 . . a 2EC 
29D-29E size heap is . . . 2 . 108 
29F-2A@ start basic tekst is . SEC 
201-242 start symbol table is . SED 
283-2084 end synbol table is. . SEF 
285-2086 bottom screen is . . B350 


Alle bovenstaande waarden zijn in het 
zestientallig of hexadecimaal stelsel 
gegeven en staan zoals bij de 8680 
gebruikelijk is laag-hoog genoteerd. 
We vervolgen met D2EC 400 en zullen 
dan zien dat alleen aan het begin en 
aan het eind van de heap wat anders 
dan nullen staat, 

De twee maal twee bytes worden ge- 
bruikt vaar de interne organisatie 
van de heap en doen hier verder niet 
ter zake. Weet echter wel dat ze 
kunnen veranderen, zoals we later ook 
zuilen zien. Is de rest niet nul dan 
heeft U de machine niet uitgezet ! 
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We keren met B terug naar BASIC en 
tikken daar in : 


ALES 

?VARFTR (AX) 

1468 is het antwoord dat we krijgen 
vervolgens tikken we 

PHEX$ (VARPTR(A)) of THEX$ (1408) 
en krijgen 

SFG 
We gaan weer naar utility en laten 
daar het stuk rond het adres SFO dis- 
playen met : 


D3EC SFF 
Het antwoord van de DAI luidt : 


QG 61 41 14 96 OG OG GS en verder 00 
M 
Hier is 3F@ 


We gaan nu de procedure herhalen met 
A! in plaats van AZ, Ook nu blijkt de 
VARPTR(A!) 1008 te zijn en de hexade- 
cimale notatie daarvan dus weer SFO, 

In utility krijgen we nu echter bij 


DIEC SFS 


OG ei 41 04 @2 Co OG OG 
TT 


Hier is 3FØ 
Schoonmaken 


De DAI moest weer opnieuw uitgezet 
worden anders krijgen we echt andere 
resultaten; al moet ik toegeven dat 
hier RESET of NEW ook voldoende was 
geweest. 

Wilt U om welke reden dan ook de DAI 
liever niet steeds aan/uit zetten kan 
bij dit onderzoek worden volstaan met 
de volgende procedure : 


UT 

F2EC 4FF o 
B 

NEW 


Maar bij andere onderzoeken zal dit 
niet gelden , denk maar eens aan het 
onderzoek uit DAlnamic 28 naar de RND 
van Raymond Vanlathem. 


U ziet dat er voor een gericht onder- 
zoek vaak veel voorkennis is vereist, 
maar bedenk wel, dat anderen die voor 
enige jaren ook niet hadden. 
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Analyse 


Goed nu de analyse van de verkregen 
resultaten. 

Gedachtig het feit dat een integer in 
de DAI vier bytes inneemt is het oi, 
redelijk te veronderstellen dat die 
vier bytes die de waarde van de vari- 
abele bevatten , staan op de adressen 
SFO,SF1,S3F2 en SFS, De inhoud van XF3 
namelijk €3 wijst daar al op. 

We kunnen een en ander controleren 
door de variabele AX b.v. 2,4 af 7 te 
maken. Meer dan tien mag ook maar dan 
is enige kennis van het zestientallig 
stelsel vereist, 

Geef echter eens de instructie ı 
AY=#1234567 en we kunnen dat simpel 
vanaf 3FØ terugvinden. 

Als we onze ASCII-codes goed kennen 
zullen we vast en zeker ook de 41 
herkennen als de ASCII-code van "A. 


Met deze laatste wetenschap kunnen we 
iets aardig doen waarbij we tevens 
een toepassing van de VARPTR zien, 

We zullen een programma '"onleesbaar' 
maken door alle variabelen dezelfde 
naam te geven. Vraag mij echter niet 
naar het nut hiervan. 


ie LIST 

20 =2 

30 Bes 

46 PRINT AtA 

30 PRINT A+R 

60 PRINT B+R 

76 FOKE VARPTR(UM -2,88 
Do FOKE VARPTR{E) -2, 98 
90 LEST = 


Vanzelfsprekend kunnen we ook andere 
ASCII-codes dan 88 nemen. *Grappige’ 
voorbeelden zijn 8 of 12 en cok de 
spatie (32) kan verwarring geven. 


De andere drie bytes die staan op BED 
SEE en SEF geven informatie over naam 
lengte en de type-identificatie. 


We gaan verder met de getallenarray's 
Zo'n array is in feite niets anders 
dan een aantal variabelen, die alle 
dezelfde naam hebben. Zoals reeds 
vermeld werd staat die naam in de 
symbol table, maar de waarden van de 
variabelen uit die array in de heap. 

Als we logisch nadenken zullen we in- 
zien dat er meer moet instaan, In de 
symbol table dient te staan waar in 
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de heap de gewenste array te vinden 
is. Vervolgens dient ergens ook nog 
de informatie over de array  (hoeveel 
dimensies en hoe groot in elk van de 
dimensies) te staan. Bij de DAI staat 
deze laatste informatie in de heap. 


Voor de VARFTR is dit alles alleen 
voor de DAI een probleem. Voor de ge- 
wone programmeur is het niet echt van 
belang. 

Begin weer zoals we steeds begonnen 
en tik vervolgens in : 


DIM AX) 

PYARPTR (AY (G) } 
We krijgen dan : 

732 

PVARPTR (AY (1)) 
geeft 

756 

en 

THEX$ (752) 

2F0 

We vervolgen met 

POKE 756,4 

RAR 
en krijgen dan als antwoord 
57168864 

schrijven we dit binair zien we : 


GAGGIO aGGQ0000 Ana cOQOGOQ 


en wat staat er binair op de adressen 
756,757,758 en 759 777? Precies !!!! 
Trouwens had U ook kunnen bedenken 
dat 67108864 precies 2726 is en er 
staan 26 nullen achter de i. 


Door dus ijverig te poken en steeds 
te kijken wat er gebeurde kunnen we 
ons een deel van de hexadecimale code 
namelijk de notatie zelf aanleren, 


Tekstvariabelen 


Als laatste de moeilijkste te weten 
de tekstvariabelen. Het probleem bij 
deze variabelen schuilt in het feit 
dat we niet van te voren weten hoe 
lang de tekst is. De inhoud staat 
altijd in de heap maar ook hier staat 
de naam van de variabele in de symbol 
table, 

in de symbol table zal dus net als 
bij de array's een verwijzing naar de 
heap moeten zijn. Deze verwijzing is 
een adres en dus maar twee bytes lang 
en hebben we niet van tevoren het 
geheugen ge'schoon'd zal een "ouder 


variabele in de symbol table ook nog 
zichtbaar kunnen zijn . Alleen NEW of 
een RESET is nu echt niet voldoende. 
We tikken in : 


Ag="3" 
TVARFTR (AS) 

en dit laatste levert tot onze verba- 

zing 1908 op dus hexadecimaal weer de 
SF6, Dit adres ligt duidelijk in de 

symbol table en er was net gezegd dat 

de variabele in de heap zit. 


uT 
DIEC 3F3 
Dit levert op : 
sa 21 41 22 ED @2 
tt 


Hier staat 3FØ 


We herkennen de naam van de variabele 
in de 41 en we verwachten de inhoud 
te vinden vanaf het adres 2ED dat in 
de symbol table wordt genoemd. 


D2ED ZEF 
levert echter op : 
ØL 33 86 F9 


De inhoud van de laatste twee bytes 
herkennen we na enige oefening wel 
als de bij de heap behorende pointers 
Maar nu de öl en de 33. Ik wil niet 
langdradig worden met mijn uitleg 
maar als het niet bekend is lees dan 
nog even niet verder en tracht het 
zelf op de aangegeven methode te 
vinden. Welnu de oi geeft de lengte 
van de variabele ( de inhoud niet de 
naam | ) aan en de 33 is die inhoud; 
de ‘3° maar dan in de ASCII-code, 


Qm hiemee wat te oefenen tikken we 
het volgende in : 


NEW 
A&="3" 


Probeer nu eens met een geschikte 
POKE de inhoud van A$ te veranderen. 
Het is dit geval het gemakkelijkst 
als we beginnen met : 


A=VARPTR (AS) 
en dan 


POKE PEEK (A) +PEER (At+1) #254+1,ASC("#") 


of als we het met alle geweld ineens 
willen doen met 
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PORE PEER (VARPTR(A)) +PEEK (VARFTE (A) + 
*1)*256*1,08C(" 8" 


Ver klaring 


Met A-VARPTR(AS)) is de variabele A 
1008 geworden. Op de adressen 1698 en 
1099 (decimaal) of SFO en SF1  (hexa- 
decimaal) staat het adres in voor de 
8084 gebruikelijke omgekeerde notatie 
in hexadecimale vorm. Om het adres te 
berekenen gaan we als volgt te werk : 
eerst nemen we inhoud van  3F6 en 3Fi 
met PEEK(A) en FPEEK(A+1). De inhoud 
van 3F1 vermenigvuldigen we hierna 
met. 256 of #FF. Dan deze twee waarden 
bij elkaar optellen en we hebben het 
adres in de heap, waar de tekstvaria- 
bele staat. Op dat adres staat echter 
niet de inhoud maar de lengte van de 
variabele, 

De lengte staat in een byte genoteerd 
en kan dus niet groter dan 255 zijn. 
Bij ons berekende adres moet nog een 
geteld worden om inderdaad de eerste 
byte van de inhoud van de tekstvaria- 
bele te krijgen. 

POKE*n we dan in de byte op dat adres 
kunnen we zo de inhoud veranderen. 


Tekstarray’s 


De laatste mogelijkheid om de VARPTR 
te gebruiken, Hopelijk naar het voor- 
afgaande niet meer zo moeilijk te 
begrijpen. Voor de hand liggend vind 
ik dat er een soort combinatie van de 
array-behandeling en de tekstvariabe- 
le-behandeling. We gaan kijken : 


We beginnen vanzelfsprekend weer met 
een schone machine en tikken dan in : 


DIM A$ (5) 

PVARPTR (AS (0) ) 
geeft 

752 


en dat is hexadecimaal genoteerd 2FØ. 


We gaan in utility eens kijken wat er 
in de symbol table staat, 


UT 

DIEC SFR 

levert 

90 61 41 62 EE a2 00 ac 


De bytes SED , 3EE en SEF geven ook 
hier weer de type-identyficatie en de 
naam. Maar het adres ZEE dat we zien 
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op de adressen 3F9 en SF1 verwart 
misschien de onderzoeker. Toen we net 
de VARFTR van A(@) vroegen kregen we 
toch 2F@ en niet 2EE ? Laten we eens 
kijken wat er in de heap op deze 
plaatsen staat. 


2EC 2F9 
Levert ons op 
66 GA OL OF OG OG .. ., 00 GA BO FO 


TT T 
4t Hier staat SFO 
^e T 


Hier staat ZEE 


Na enig denkwerk en het eventueel 
veranderen van b.v. de dimensie van 
de array of het aantal dimensies van 
de array zien we in dat op 2EE het 
aantal dimensies van de array gemeld 
wordt, gevolgd daor de gereserveerde 
grootte in die dimensies, 

Daarna volgt de array zelf, startend 
op adres 2FØ. 

De öğ GA die op ZEC en ZED staat 
geeft aan dat voor de er op volgende 
array A(=10) bytes zijn gereserveerd, 
Hier zijn dat dus twee bytes voor de 
identificatie en (4 x 2) acht bytes 
voor de inhoud, 

Het is echter niet zo simpel als hier 
geschetst; we hebben namelijk met een 
tekst-array te maken en bij tekst 
weten we niet hoelang die tekst is. 
Net als bij de tekstvariabelen zal de 
VARPTR alleen maar het adres aangeven 
waar we de tekst zelf kunnen vinden, 


samenvattend: 


De VARFTR geeft een adres, 

Op dit adres begint een nieuw adres, 
Dit laatste adres geeft aan waar de 
lengte gevolgd door de tekst staat, 


Als we nu met &$(6)z"2" het eerste 
array element gaan vullen zien we op 
2FQ@ en 2F1 het adres 2F9 gencemd 
worden {in de volgorde F9 92). 

Vanaf 2F9 vinden we @1 32 80 ED on 90 
met als eerste de lengte van onze 
tekst (=1) en daarna de tekst zelf in 
ASCII-notatie is 2 namelijk 32. 
Erachter stond 894 Fø de verandering 
komt door de verandering in gebruik 
van de heap. 


Frank H. Druijff 
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1030 PH-INT(POINT/4100):PL«POINT-PH*4100 
1040 READ CZ:C-CZ:1F C>#2FF THEN RETURN 

















































1050 IF C<#100 THEN POKE POINT,C:GOTO 1100 
1060 IF C<#200 THEN POKE POINT, (C-#100+PL) IAND #FF:RET=(C-#100+PL) TAND #100 
` s 1070 POKE POINT,C-#200+PH+RET 
10 PRINT CHR$(12):POKE #29C,5:POKE #29B, #FF ` 1100 POINT=POINT+1,0:GOTO 1040 
15 CLEAR 3000:DIM F(3.0),D(3.0) 10000 DATA #300 
20 GOSUB 1020:GOSUB 1020 10005 DATA 0,0,0,0,0,0,0,#C6,#30,#77,#23,#23,#C9 
25 GOSUB 1020 10010 DATA #C5,#D5,#E5,4F5,#2A,#8A,#00,#01, 488, SFF, #00 
30 GOSUB 1020:GOSUB 1020 10015 DATA #3A,#101,#200,#CD,#107,#200,#3A,#102,#200 
35 GOSUB 1020 | 10020 DATA #CD,#107,#200,#3A,#103,#200,#23,#23, CD, 4107 , #200 
40 GOSUB 1020 10025 DATA #3A,#104,#200,FCD,#107,#200,#23,#23,#3A,#105,#200 
41 COLORT 9 14 5 3 10030 DATA #CD,#107,#200,#3A,#106,#200,#CD ‚#107 ,4200 
50 CALLM $3AL:INPUT "HH,MM,SS";HH,MM,SS:PRINT 10035 DATA #C3,#F8,#03,#C1,#C9 
55 POKE #300,0:POKE #301,SS MOD 10:POKE 4302,INT(SS/10.0) 10040 DATA #FFF, #345 
60 POKE #303,MM MOD 10:POKE #304, INT(MM/10.0) 10045 DATA #36,#00,#23,#34,#7E,#C9 
65 POKE #305,HH MOD 10:POKE #306, INT(HH/10.0) 10050 DATA #C5,#D5,#E5,#F5,#21,#00, #03 
70 REM "#300-#306:COMTEURS" 10055 DATA #34 ,#7E,#FE,#32,#C2,#E1,#03,#CD, #100, #200 
75 REM " GALLME" 10060 DATA #FE,#0A,#C2,#11,#03,#CD,#100, #200, #FE, #06 
80 REM "30D: AFFICHAGE; 34B : COMPTEUR eo * 10065 DATA #C2,#11,#03,#CD,#100,#200,#FE,#0A,#C2,#11, #03 
85 REM "3AI:MARCHE — ; 3B8:ARRET" 10070 DATA #CD,#100,#200, FE, #06, #C2, #11, #03, 4CD, #100 ,#200 
90 REM "3E6: AFF ON  ;3EF: AFF OFF" 10075 DATA #FE,#04,#CA,#147,#200,#FE,#0A,#C2,#11,#03,#CD, #100, #200 
95 INPUT "MOMENT DU DECLECHEMENT : HH,MM":HH,MM:PRINT 10080 DATA #C3,#11, #03 
100  D(3.0)-INT(HH/10.0):D(2.0)«HH MOD 10.0 10085 DATA #23, #7E,#FE,#02,#C2,#11,#03,#36,#00,#2B, #36, #00 
105  D(1.0)=INT(MM/10.0):D(0,0)=MM MOD 10.0 10090 DATA #C3,#11,#03 
106 INPUT " MOMENT DE FIN D'ENREGISTREMENT : HH,MM":HH1,MM1:PRINT 10095 DATA #FFF,#39B 
115 F(3.0)=INT(HH1/10.0):F(2.0)=Hm MOD 10.0 10100 DATA #CD,#4B,#03,#C3,#A9,#B9 
20 F(1,O)=INT(MM1/10,0):F(O.0)=MM1 MOD 10.0 10105 DATA #FFF,#3A1 
125 PRINT CHR$(12) 10110 DATA #F3,#05,#D5,#E5,#F5,#2A,#70,#00,#22,#9F ,#03 
30 CURSOR 6,12:PRINT "* CASSETTE PROGRAMMEU xe 10115 DATA #21,#9B,#03,#22,#70,#00,#F1,#E1,#D1,#C1 
135 PRINT TAB(6) ; "eetset sin 10120 DATA #FB,#C9 
140  CURSOR 6,13:PRINT "sees Zeeche eech! 10125 DATA #FFF,#3B8 
145 CURSOR 43,23:PRINT "TIME: 10130 DATA #F3,#C5,#D5,#E5,#F5,#2A,#9F,#03,#22,#70, #00 
50 CURSOR 0,1:PRINT "DECLENCHEMENT ai : ";HH;".";MM 10135 DATA #F1,#E1,#D1,#C1,#FB,#C9 
155 PRINT TAB(40);"FIN : ";HH1;".";MMl; 10140 DATA #FFF,#3C9 
160 FOR I%=0 TO 3:1F PEEK(#303+1%)<>D(1%) THEN 160 10145 DATA #32,#5F,#03,#32,#67,#03,#32, #6F,#03,#32,#77, #03 
165  NEXT:CURSOR 0,1:PRINT SPC(12);"ENREGISTREMENT EN COURS" 10150 DATA #32,#84,#03,#32,#8A,#03,#32, #91, #03,#32,#99, #03 
170 POKE #40, #28 10155 DATA #F1,#E1,#D1,#C1,#C9 
75 FOR IZ-0 TO 3:1F PEEK(#303+1%)<>F(1%) THEN 175 i 10160 DATA #C5,#D5,#E5,#F5,43E,#11,#C3,4100,#200 
80  NEXT:POKE #40,#30:CALLM #3B8 10165 DATA #05,#D5,#E5,#F5,#3E,#E1,#C3,#100,#200 
85 PRINT CHR$(12):CURSOR O,20:PRINT "ENREGISTREMENT EFFECTUER:" - 10170 DATA #FFF,#3F8 
90 PRINT"APUYER SUR LE STOP DU MAGNETO" 10175 DATA #2A,#8A,#00,#01,#85,#FF,#09, #06, ärt, HOE, #2E 
95 PRINT " SUR LE POWER DE LA CHAINE" 10180 DATA #70,#23,#23,#70,#23,#23,#70,#23,#23,#70,#23,#71 
200 PRINT :PRINT " eteindre la TV et 1'ORDINATEUR(interrupteur derriere)" j 10185 DATA #23,#70,#23,#23,#70,#23,#23,#70,#23,#71,#23,#70 
202 ENVELOPE O 15,50;0,30; 10190 DATA #F1,#E1,#D1,#C1,#C9 
205  COLORT 0 300 19999 DATA #FFF 
210 SOUND O 0 15 2 FREQ(100.0):WAIT TIME 100 
215 COLORT 9 1400 
220 SOUND 0 O 15 2 FREQ(10000.0):WAIT TIME 100:GOTO 205 








999 WAIT TIME 100:END 
1020 READ POINTZ:POINT=POINTZ 




















EEE 
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CLEAR 5000:MODE B:PRINT CHR$(IZ):COLORT 9 14 D 15:POKE 875322 

FOR IX-SBFFF TO &BFFJ STEP -4:POKE (ie HJØ:NEXT 

FOR IZsREFEF-243:885 TO 14-12 STEP -4:POKE 144 3F:NEXT 

CURSOR &À19:PRINT "520205 ALLERLET ivem TIJD zt 
FOR Tei TO 11:COLORT 9 14x(14 MOD 2) @ 15:WAIT TIME 15:NEXT 





FOR IZ-WBFFF TO #BFF3 STEP ~4:FOR JZ-&31 TO 4£3F:POKE Delt TIME 2:NEXT:NEXT 


FOR IY=HBFEF TO 14-234#06 STEP -HB5:FOR JU=47B TO HIF:POKE IX:J4:WAIT TIME 
CURSOR i8:8:PRINT "1. Kalender van een jaar"; 

CURSOR 18.5:PRINT "2, Bepalen welke dag een bepaalde datum was "3 
CURSOR S1Q:PRINT "deor Frank De Jonghe Nummer 73 
FOR IZ-SBFFF TO #BFF3 STEP -4 

FOR Ji TO #30 STEP -1:POKE I: JUMAIT TIME JINEXTENEXT 

FOR IX-RBFEF TO 14-8*#86 STEP -886 

FOR JU=K7E TO #78 STEP -1:POKE IZ:J4:WAIT TIME S:NEXT:NEXT 

AZBGETCHIF AZ<49 OR A4250 THEN 200 

DIM DAMAA(L2, 8) 1 MAANDS (12, 0) 

FOR 1=1,0 TO 12,D:READ DAMAZ(ID:NEXT I 

FOR Iz1.0 TO 12.0:READ MAANDS(I) NEXT I 

DATA 31128531: 30 21:303 215 31:130» 215 20431 





DATA Januari:sFebruarisMaartrApriliMeisdunisdulisáugustus:September:OktobersNovember:December 


ON AZ-48 GOTO 390: 1508 

REM zax Kalender maken 3B 

MODE Ø:COLORT 12 B 12 12 

PRINT CHR$(12) 

PRINT TAB(20) i" Kalender" 

PRINT TAB(2Ø) "CH I 3L 3" e 
PRINT SPRINT 

INPUT “Jaartal (niet afkorten) “3 JA%:PRINT 
Dz1.0:M-1.0:J-JAX:GOSUB 2008 

IF JA4/400,0-INT(JAZ/400.0) THEN DAMAX(2.0)-29:G0TO 450 
IF JAX/100. 02 INT(JAX/100.0) THEN DAMAA(2.0)-28:GOTO 450 
IF JAZ/4.8-INT(JAX/4, B) THEN DAMAZCINT(2,0))-29:G0TO 450 
DAMAN (2,0) =28 

DIM KALZ(12, 017,06. 0) 

Du=D%-1 

FOR MAZ=1 TO 12 

Hi) 

FOR DAZ=1 TO DAMAZ (MAZ) 

D4=D4+1:IF D%>7 THEN DU=1:RU=RU+1 

KALZ (MAA Dhs RA) DA. 

NEXT DAX:NEXT MAX 

PRINT CHR$(12) 

CURSOR 19: 15:PRINT "Afdruk op printer (J/N) ?" 
AV=GETC:IF 4%:274 AND 4%<>78 THEN 330 

IF A%=74 THEN 750 

POKE LIL LIL TINGS" anna 

FOR Ti TO i2 

PRINT CHR$(12) 

PRINT TAB(15) :MAANDS (1%) 

PRINT TAB(15)GLEFTS(L LINE, LENCHAANDS CUL 23 

PRINT :PRINT 

PRINT TAB(7):1* Za" 3TAB (14) 5 * H' S TABC21) 1 D' S TAB C28) 5" W 
PRINT TàB(35) :" D' S TAB( 42) s" V s TAB (49) 5" 7" 

FOR JAsi TO 6 

FOR Kiel TO 7 

IF Ké IIIe KU 14220, D THEN PRINT TAB(KUS7-1)5""5 160170 598 
PRINT TAB(OODT-1 9: KALVIG KU SUE 

NEXT KZ 
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Z:INEXTINEXT 





708 
718 

20 
738 
740 
758 
740 
778 
788 
790 
800 
810 
812 
815 
828 
838 
835 


: 836 


840 
870 
889 
898 
700 
910 
20 
23 
925 
930 
940 
945 
950 
968 
970 
980 
990 
1028 
1919 
1929 
1030 
1935 
1836 
1937 
1938 
1939 
1040 
1058 
1040 
1878 
1075 
1089 
1298 
1122 
1118 
1128 
1138 
1148 
1158 
1508 
1518 
1528 
1538 
1549 
1559 
1568 


PRINT 

NEXT J% 

IF GETC<>32.@ THEN 720 
NEXT IX 

GOTO 1198 


POKE BU), LIL LINGE" VANNVEI 
PRINT CHR$(12) 

PRINT "Hoeveel afdrukken wil u € 
INPUT "——» "SAFXSPRINT 

IF AFACL.@ OR AFX228.0 THEN PRINT "Een beetje ernst A.U.B.":GOTO 778 
POKE #19119 

FOR H4=t TO AF% 

AFDRUKDAGf=" Zn M D W D y zh 

PRINT :PRINT :PRINT :PRINT 

AS=SPC(15) 

HHS=AS+"* KALENDER van "+MIDS(STRS(JAZ) s 1 LENCSTRS (JA) 3-3, Din en 
FOR HP=1.Ø TO LEN(HH$)-15,0:H$zHt-" Bn I NEXT 

H$-A$*H$:PRINT H$ 

PRINT HH$ 

PRINT H$ 

FOR HP=1.@ TO 5.0:PRINT :NEXT 

FOR 17=1 TO 12 

A$-SPC(CIO) 

HS=AS+MAANDS (1%) 

PRINT H$ 

PRINT 

PRINT AFDRUKDAG$ 

PRINT :PRINT 

FOR Ji TO 4 

R$="" 

FOR KZ=1 TO 7 

IF KAL(IM KU d'Us, H THEN R$=R$+SPC(B):GOTO 1900 
HUS=STRS(KALZ( TZ: KZ TA) ) 

HUS=MID$ (HU$ 4 13 LEN(HUS)-3) 

R$=R$+HUS+SPC (8-LENCHUS ) ) 

NEXT Ki 

PRINT R$ 

NEXT J% 

PRIN 
NEXT IX 

PRINT :PRINT :PRINT 

A$=EPC(2Ø)+"U aangeboden door Frank De Jonghe" 
PRINT A$ 

PRINT :PRINT :PRINT :PRINT :PRINT 

POKE #13191 

PRINT CHR$(i2):PRINT "Zet het papier goed," 
PRINT “Druk «RETURN? ":INPUT RET$:PRINT 

POKE #13158 

H$z** 

NEXT HX 

POKE #13111 

PRINT CHR$(12) 

PRINT "Druk 'K' voor nog een kalender »" 

PRINT “en 'M' om naar het menu terug te keren." 
AXSGETCIIF A4<377 AND 44373 THEN 1130 

IF AX-77 THEN 18 

GOTO 300 

REM +*+ Dagbepaling za 
MODE Ø:COLORT @ 19 0 9 
PRINT CHR$(12) 

PRINT TAB(20):"Dagbepaling" 

PRINT TAB(20) i" Hiit" 

PRINT :PRINT 

INPUT "Jaar (niet afkorten) "iJ:PRINT 





2) 7 
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1578 IF Ji=0,0 TH 569 

1580 INPUT 'Maandaummer “sit: PRINT 
1590 IF MOB OR 12,0 THEN 1586 
H H 

1518 I 


































































Es 

















IF An=77 THEN 10 

GOTO (588 

REM ##* Subroutine voor daghepaling zg? 
REM D=dag/M=maand/J=jaar 

FzJ4D42, 04-3. 0 
XzINT(SGNO473.0) /2. 0? 
J=J+X 
F=F-(X+1, OE INTO, Her 
FaF+INT (3/4, Q)-INT(S. Us 
F=F-7, Q*INT(F/7,8) 

ON Frl GOTO 20% 
D$z"Zaterdag* "DI 
D$z"Zondag": 
D$=" Maandag" 
D$z^Dinsdag': 
D$="Noensdag 4: RETURN 
D$="Donderdag" 1D4=5 : RETURN 
D$z'Vrijdag':DZz6: RETURN 




















99 INPUT "Dagnummer ":DtPRINT 
IF J/4.R-INT(J/4.Q) AND Hei, H AND De29,0 THE s S 
1628 IF Dis. ACH) THEN 1628 
: RIK eze dag waz/is/zal zijn een "GDS 
E gkeer naar het menu ^ ` : 
C i en * ü re dagbepaling." 

























T(J/109. 01 /4,0)-1,0 | 


* 
0212092130: 21402150 
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PRE MNA COLOUR MIXING EXPERIMENTS ON THE 
| "INTEGREX COLOURJET 1327 FRINTER AND DAI PERSONAL COMPUTER 
Louis Gidneys July 1984, Tel: 032872-248 


























19 REM nn nn BI, BY ROLF SCHALL (Wem sonst)...... 

20 REM un SELBSTVERNICHTUNGS-PROGRAMM ...... ER PAL RANGE FOR GENERAL PURPOSE SCREEN DUMPS 

39 REM nn MIT "9 GARANTIE VV sus en i taster Ahan the TARA set 

50 MODE @:PRINT CHR$(12) :COLORT 5 15 5 5 i I— SES 

60 FOR I'z0.0 TO 10.0:PDKE #BFEF-134*1!,#5A: NEXT SN 

70 PRINT :PRINT "PROGRAM DESTROYED":PRINT (7 = white — 5 - cuan S= magenta $= yellow B = black i , 

75 PRINT " IN";" SECONDS":FÜR I=3.9 TO 9.9 STEP -1, 0: CURSOR 7, 19: i | Examplet- Each dot of patch ‘655333 is a mixture of: | part cyan, 2 pis magenta and 2 pts yellow! 
PRINT I:WAIT TIME SO:NEXT:PRINT i 

Bo COLORT 5 15 6 O:PRINT CHR$(I2):WAIT TIME 2:COLORT 8 © e @:PRINT "BASIC — 377700 777685 777655 777553 777758 776633 777530 776533 777778 777768 777533 777779 777776 777763 707 9 
V1.0" wu 

199 POKE #29F,#EC:POKE #249, 3: POKE #201, HED: POKE #202, #3: POKE #243, HEE: POKE BE 
HZAA, #3 

150 REM | | | 

169 REM ....... GEHEIME BOTSCHAFT ...... nnnm 

170 REM 

200 REM HABEN SIE'S ENDLICH GEMERKT, SIE BLINDGANGER ?' 

219 REM ....... ENDE DES PROGRAMMS „nssasosnnosensosanoa 
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The High Speed Loader was developped a few years ago 

by Hein Kop and myself,to make it possible to load of- 
ten used programms in a fast way by means of reading 

from an Eprom bank,which was connected to the DCE bus. 
The system was build around an Eprom card which was 
available at Elektuur Printservice. 

It could contain four Eproms of the type 2716 (4x7kByte) 
or 2732 (Ak4kBytel. 

This Epromprint was placed on a basic printed circuit 
board with an 32 pins connector which contained the rest 
of the electronics. G 

The result was that we could read a program of 10kByte 

in one second, 

Far programs like SPL an ideal solution. 

Also several games were stored in Eprom and children 
loved it. 

An Eprom card with the game was plugged in,and one com- 
mand was enough to load the game. Like Atari. 

However due to the high cost of Eproms at that time only 
a few were made and they worked very satisfactory. 
Another disadvantage was that the Eprom card was layed- 
out only for 2716 or 2732 Eproms. 

With the development of the DAI-DOS 1541 system we decided 
to include the software of the HSL into the software of 
the 1541 system,because SPL was used during this project 
and available on an Eprom bank of the HSL. 

However from time to time people are asking us again about 
this project so we gave it a go over and got rid of 
several items like Power On Initialization which was 

no longer required because this is now on our Floppy 
Interface. 

The final result is on a drawing together with this des- 
cription. 

We have not the intention to develop a basic printed cir- 
cuit board or the request for it must be so demanding that 
we have no choice. 

The HSL can be connected to the DCE bus together with an 
MDCR(S) or VC1S541 disk drive(s). 

It has its own device address selection and will not 
interfere with other equipment. 


TECHNICAL DESCRIFTION 





The device selection is done with PB4 and decoded in such 
away,with the use of an 7415138, that the HSL is only se- 
lected when FB4 is high. 

Only one output of the 740185138 is used,the others can be 
used for addressing other devices connected to the DCE bus. 
The address counter for addressing the Eproms consist of 
two 74153953 clocked with FCO and a reset pulse PCI. 

Both signals are twice inverted by an 74L814. i 
This is done to reshape the clock and reset signal which 
are through the lenght of the flat cable and other devices 
in bad shape. 

For the same reason are both C's of inF included. 

in some cases it is necessary to place an 390 ohm resistor 
in series in both lines. 

The data lines are extra buffered with an 7418245 which 

















is only active during the time the HSL is selected. 

This way unwanted signals on the DCE bus are avoided. 

The selection of the Eproms is done with a combination 

of an 74L5157 and an 82923 Prom. 

Due to this combination, together with PBZ and BP3,we have 

the possibility to split a programm over more than one 

Eprom and read it without interruption as a whole. 

Example: 

Eprom 1 (2732)contains a programm called "Spooler" 

Eprom 2,3 and 4 contains "SPL" 

With the command HSLO the "Spooler" programm stored in 

the first Eprom is loaded. 

With the command HSL1 "SPL" is loaded,this programm is 

stored in three Eproms which will be selected one after 

the other. 

When you give the command HSL2 an error "NOT AVAILABLE" 

will appear on the screen. 

Due to the fact that a address preset is not possible,emp- 

ty space within one Eprom cannot be used for another pro- 

gramm. 

At the begining of every new programm in an Eprom or bank 

five bytes are used to provide the software with the pro~ 

per start information. 
ist. Byte RED This a not used Opcode. 
Indicates a NEW PROGRAMM. 

Znd.+3th. Byte  :Start address of the programm 

within the DAI memory. 

Lowbyte- Highbyte. 

:Total lenght of the programm. 

Highbyte- Lowbyte 


4th.+5th. Byte 


The contents of the used Prom type 82523 is as follows: 
Address: Os 1: 2: 3: 4: S: 6: 7: 8: 9: Ar Bi C: D: Es F 
Data s E: De Ba 7: Ds Ba 72 Fe Ba 7: Fs: Fe 7: Fs Fe F 


The Eprom print card was available at Elektuur printser— 
vice, Postbus 75, 6190 AB HBeek(L) number EPS 82558-2. 

The used connector is available at almost every good elec- 
tronics shop. 

However if you want to make your own arrangement you do 
not need this card and connector. 

This is the way the HSL is set up. 

Variations, changes and improvements are possible ve 
realize this.50 if you have a good idea let us know. 

On paper we have a version which can handle Eproms of the 
following types: 2716,2752,2764 and 27128. 

However we do not have a small Eprom card which can con- 
tain 28 pins IC sockets with the same pin arrangement as 
the used connector on the Elektuur PCB. 

For extention to use more that four programms on an Eprom 
card a change in the DOS software must be made because 
this is not forseen. 


H. Ri son 
Luxemburgstraat 17 
6164 BS Beleen NL 
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High Speed Loader This article describes the principle of relative files and 
| the way they are handled on the DAI-DOS 1541 with the 
Commodore VC1541 disk drive. 


DCE Bus 





PRINCIPLES/ADVANTAGE OF RELATIVE FILES: 





Fast access to each record - Large files can be handled. 


Relative files are so-called random access files. They are 
disk-oriented. This means, that the contents of the file is 
nat loaded into the RAM space of the computer, but remains 
on the diskette. Only the parts needed to be handled are 
read from the diskette into the computer memory. 





DATA LOADER 














The advantage of this system of file handling is, that very 
large files can be handled. 

The sequential files — for the DAI this means: the arrays — 
can be max. S2KBH, due to the maximum heap space in the DAI. 
String arrays can be max. about 2OKB, due to the double RAM 
space required for writing and reading. 

Relative files on the diskette can be. max. 164KB, limited 
only by the max. storage space available on a diskette, 


| & relative file consists of a number of records. 6 record is 
| a block of information. Let us take as example a mailing 
list. For everyone on that list, we need to store the name, 
the address and the town. These 3 items (‘FIELDS’) together 
form a "RECORD". The records of all people in this mailing 
list together, are called a "FILE", 








Another advantage is the manner in which updates are made. A 
relative file is random-access, which means that each record 
of the file can be addressed without loading the whole file 
in the computer memory. 

To update a sequential file (array), the whole file must be 
read, updates can be made, and the file has to be saved 
again. For relative files, only the record to be updated has 
to be ioaded into the computer and can be saved afterwards. 

‘ This saves a lot of time. 





GA ep 





To handle relative files on the DAI~DOS1541, the additional 
monitorprogram  "FDDMON/O^ is required (see below). This 
Small object code program allows the use all additional 
| H options of the VCi541 disk drive. 


























Å 
Å å 
H 4 FILE/RECORD STRUCTURE: 
D d ulus = 
a å 
Fi 2 Relative files must have records cf a fixed length. This is 
£ dictated by the way they are handled by the VCi541 operating 
a system. In addition, only character strings are allowed as 
records. The maximum record length is 254 characters. 
gm La 38 E bi 
& 9 i 28 ER m 2z The maximum number of records is 65335 (#FFFF), which means 
Si" Kg ^ c =e the practical number of useable records is limited by the 


capacity of the diskette. 








ENE ern Jin en T J in our example of the mailing list, let us take: 
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name O characters 
address 20 characters 
town 5 characters 


ko MM 


SE, 


The total length of a record is now ZO0-20415-55 characters. 


The record length must be determined in advance. Once fixed. 
it can not be changed anymore! It is used by the disk drive 
for the file organisation an the diskette. 
D 

h single field, we must take 

hese number of charac- 
ers long, 5 additio- 
. Later, we will see 
record, and how a 


To enable the handling of 
care, that each field has exactly the 
ters. If e.g. a name is only 14 char 
nal spaces have to be added ta the name 
how we form the fields together to a re 
single field can be separated from & record. 








rac 





Furthermore, the file must have a file name of maximum 16 


characte 





COMMUNICATION DAT 





The relative files can only be handles in combination with 
the monitor program FDDMON/O. This program must loaded 
together with your BASIC program. If the name of the BASIC 
program is "MAILING LIST/R”, then load both parts with: 


BOOT"FDDMON/O,MAILING LIST/E" 


By means of the object code routines in the FDDMON/O program 
the whole communication is handled. The easiest way is to 
declare (INT) variables in your BASIC program with the 
addresses of the various routines, e.gd.s 


OPENS =#400 FRNTI=H406& ERROR-4FZES 
CLDSES-HAZI INFZ 4418 etc. 


Bee the manual of the '"FDD-TOOLKIT/1i^ (see below) for all 
addresses. 


In deviation of the normal save and load procedures on the 

DAI-DOS 1541, for relative files the opening and closing of 
the file mu be done by the user. For all communication tor 

relative files, the channel 3 of the VCI1541 is used, in 

combination with channel i2 (command /err or channel) for 
ystem instructions. 

Also the error channel is not read automatically. 


















Only one relative file can be handied same time. if 
you want to handle data from twa different rei 

always close the first one before opening the second file, 
otherwise an error message "NO CHANNEL" will occur 








The format to OPEN a relative file is the following: 


io FILENAMES="MAILING LIST" 

20 RECLENGTH=56 {i more than the real length due 
to the CR send after the string 

BO OPENS=F ILENAMEE +" ‚L, "SCH (RECLENGTH) 

40 CALL OPENS, OPENS 
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When the relative file is opened the first time, it is 
advised to reserve already a number of records. This is not 
a must, but it increases the speed of the file handling. 
Reserving a number of records means, that on the diskette a 
number of ‘empty’ records are written. if e.g. you think 
that you will need 2 records, it is sufficient to write 
data to the 200th record. All records 1-199 will then be 
initialised too. Later writing into the records 1-199 will 
now be done much faster. This principle can be repeated 
always. If e.g. are used, YOU Can write inte 
the 400th record, a h records 201-397 are 
too. 

To give free thi 
— CHE$(O2 i 




















set-up 


it is sufficient to write #FF 











At POSITIONED on this record. This 
ic 
so RECNR=200 ías example) 
åt HB=RECNA SHR 8 
79 LE=RECNAR TAND 2 
f $=" FU + CHR (3) HCHRE (LE) + CHR (HBE? + CHR 0) 
CGLLM PRNTIS, POSS 
ine string FOSS telis the VCIE4i that it is a ”F'ositicn 


command on channel 3, the record number, and that it should 
point to the first byte (byte O? of the record. This is done 
via the command channel 15. 






in this record, the following statements are 
sufficient: 


100 OP$=CHR% (255) 
110  CALLM PRNTS, OFS 


The print statement in line 110 will cause an error message 
"RECORD NOT PRESENT’, because record 200 does not vet exist 


the moment BEE is written into it. This error message can be 


ignored. 


* a large number 
some time. For SC 


minutes. 


of records ie declared free, it may take 
records of 40 characters, it lasts about 








channel before closing th 
message will he dis 





Once the relative file is set-up like described above, data 
can be entered. in Gur example. we have 3 iables: NAMS, 
ADDES and TOWNS, each with a defined length. These lengtns 
are stored in the variables LM. LA and LT: 7 








rane z NAPE 
address: ADDRE 
town $ TOWNE 
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how data is send to 







INPUT NAMES: PRINT 

IF LEN(MAME) CN THEN 10 
NOMSCNAPMEBPOO NL EN (NAME?) 
INPUT ADDR&: PRINT 

IF LEN(ADDRS) LA THEN 40 
ADDRS=ADDRS+S (ADDRE) > 
INPUT TOWNS: PRINT 

IF LEN(TOWNS) SLT THEN 70 
TOWNS=TOWNS+SPC (LT-LEN ( TOWNS} > 


d 


SaF Ar e stor 
in the 7325 
by the iNPUT-: 











Same way as done for the 


tions 








) see ‘write gata”, 











i ; : > lines 100-160 
This routine enters the data for each field of the record. 
Too long fields are not accepted. Too short fields are made ica 
exactly the correct length by adding additional spares. GO 
7 p if record is #FF, then the record 
The number of the record, to which the data must be send, - ` 
has to be entered naw: 
100 INPUT RECNR: PRINT 
i10 HE=RECNA SHR 8: LBSRECNR IAND 2535 
ar SE Thi ond positi co and is guire to sint again to 
Now the relative file can be opened: - ond position ORMARE : red ED AER AJRAT SS 
the d of the record. P record is stared in 
ee IPS, and must be divided into the name. th adress 
120 FILENAMES="MAILING LIST": RECLENGTH=S& i and must Der divided nen ke er hed 





and the town: 


130  DFEN$=FILENAMES+" SL, "+CHR$ (RECLENGTH) 


140: SCREEN OPENS ORENS 70 NAME =MIDS(IPS,0,LN) 


So ADDRE=MIDS(IFS,LN,LA) 


After opening the file, the pointer must be set to the 35 TOWNS=MI DE IFS, LN+LA, LT) 


correct record: 


€ 


150 POS$="P"4CHRS (3) +CHRS (LB) +CHRB (HB) +CHRS (0) The various sirings can be updated and written back again as 
| 160 CALLM PRNT1S,FOS% described above: 
Do not forget to close the file, ance all reading and 


Now the data can be send to the specified records writing is finished: 


170 DF$=NAME+ADDRE+TONNS 


oo CALLM ERROR: CAL SES 
180 CALLM PRNTS,OF% ide CALL ERROR: Coin CLOSE 


i This input procedure can be repeated for other records, e.g. 
via a loop. When ready, the relative file must be closed: 


190 CALLM ERROR: CALLM CLOSES 





lanation, with a lot of examples, is 
red to "Das grosse Floppv-Buch" by Englisch/Szcz epanow— 
published by Data Doc r GmbH, Duesseldorf (BRD). This 
is also translated in other languages. 





READ DATA FROM RELATIVE FILE: 




















r pia 2 de 5 diskette FDD TOOLKET/1* with tamonget others) the 
Data can be read from a relative fiie in two ways: character ? EDDKON/ 0 Ad He ordered from "Micro Servi E 
> i xf Å c 5e cH ere from "Micro 5 ce 
by character (GET) or as a string (INFUT). The GET-method i ee 5174 RG = ied pode Red 
useful if only one character or apart of à record is i A Pp be ^ in Advait s ar "a n 
required. If the whole record must be read, the INFUT-method itur = Brenn S Y EE ad 
must be used national postal mon Please indicate the pro- 
ILE nr r Dutch members can transfer this 





we on uc order. 

ank account 135.09.78.734 af Mi 
contains aiso other useful pro 
d use af the VCiS4i disk drive. 








"o Service. 


In the example, both methods will be used. The GET-method to T a E 
S fame for extend- 


see if the record is empty, the INFUT-method to read the 
record. 





The handling is a little bit artificial”, due to the way 
the link between the object code program FDDMON/O and the 
BASIC. Two variables have to be declared at the start of the 
programs 


Jan Boerrigter, June 1785 
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warn? 
LO oe 
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*CRITICAL PATH 





4 
H 


ANALYSIS* 


Probleem 


Een van de beperkingen van FWF is het 
feit dat er, altans niet gemakkelijk, 
in twee kolommen mee is te werken. 

Ik heb dit probleem zelf ook meerdere 
malen ontmoet en ik wilde er iets aan 
doen. Nu is het werken op een zestig- 
karakter-scherm zoals de DAI heeft 
het prettigst als we een tekst hebben 
die niet meer en ook niet tijdelijk 
meer dan zestig karakters op een 
regel heeft. Ik heb zelf gekozen voor 
een kolombreedte van 37 karakters en 
dat past ruimschoots in de zestig. 


Oplossing 


Ik heb me er toen toe gezet een pro- 
gramma te schrijven, dat ons hier kan 
helpen. Voorlopig nog in Basic maar 
waarschijnlijk binnenkort in een veel 
snellere en uitgebreidere versie in 
machinetaal. 

Wat doet dit programma ? Wel simpel 
gezegd komt het op het volgende neer: 
We tikken de tekst in op kolombreedte 
37 ( kan aangepast worden ). We maken 
enige voorbereidingen en laten dan 
het programma lopen. Onze tekst staat 
dan "keurig' netjes in twee kolommen. 


Voorbereidingen 


Willen we de regels allemaal even 
lang hebben moeten we dat nu doen. 
Tevens dienen we er voor te zorgen 
dat in de tekst voldoende returns 
staan. Als bij een paginalengte van 
66 de tekst uit 234 regels bestaat 
zullen de laatste zes regels van de 
linkerkolom verdwijnen daar er geen 
rechterkolom bij is. De oplossing is 
simpel; we voegen gewoon minstens zes 
returns toe en het probleem is weg. 
We zetten de tekst voor de zekerheid 
wel weg op diskette of band. 


Aanpassingen 


Zijn we dan helemaal klaar dan kijken 
we op de adressen AZ A3 A4 en A5 om 
te weten waar de edit buffer (nu dus 
tekstbuffer 1) begint en eindigt. 

Vervolgens verplaatsen we de tekst 
naar een hoger adres. Bijna altijd 
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zal #1000 voldoende zijn maar zolang 
we niet boven Agee komen werkt alles 
uitstekend. 


N.B. Houdt er rekening mee dat boven 
96098 buffer 2 vernield wordt, 


Voorbeel dc 


UT 
DAZ A3 
GOA2 OG 30 7A 43 


Geeft AZ AT iets anders dan op 30 dan 
staat FWP niet op STEP 1. 
In dit geval kunnen we kiezen voor 


M3eeod 437A 7000 


waardoor onze tekst komt te staan van 
7000 tot 8374. Noteer deze waarden om 
ze straks in het basicprogramma aan 
te kunnen brengen, 


We laden het dubbelkolomprogramma in 
en passen, indien nodig, enige Con: 
stanten aan. In bovenstaand voorbeeld 
moeten we de eindconstante dus veram- 
deren in 837B. (mag meer zijn) 

Geef dan RUM en na enige tijd krijgen 
we "STOPPED IN LINE xx”, 

Nu is de tekst in twee kolommen in de 
buffer geplaatst, 


Complicaties 


Grote letters in de linkerkolom en/of 
de rechterkolom zijn opgelost. 

Ik zet grate letters aan met g en 
uit met u waarbij die codes staan 
in de headings. Dit uitzetten gebeurt 
bij de Epson echter met 20 en dat is 
een code die FWP zelf gebruikt, 

in de heading staat dan ook en in 
de convert character table staat 64 
wordt 26, 


De laatste nabehandeling die we de 
tekst moeten  geven is het aanpassen 
van het aantal spaties na een grote 
tekst. Als de vergrote tekst bev, 13 
karakters lang is dienen er 13-6 = 7 
spaties verwijderd te worden en alles 
loopt naar wens. 


Frank H. Druijff 
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16 
28 
Au 


an 


6@ 
76 


ied 
118 
120 


156 
140 
150 
160 
200 


210 
224 
230 
zu 


260 
278 
280 
298 


seo 





REM F.W.P.-DURBELKOLOMS / F.H. DRUIJFF - 7/85 
REM 
REM POINTERS 


EL=#47000: REM START ADRES VERPLAATSTE TEKST 
bij voorkeur hoger dan $4900 
E=#88FF: REM EINDADRES (+1) VERPLAATSTE TEKST 
het mag meer zijn maar kost nodeloos extra tijd 
D=H7000: REM BEGINADRES BUFFER 1 
Ladi: REM REGELLENGTE LINKERKOLOM + TUSSENSTUK 
onbegrensd, maar is alleen zinnig als de 
regel ook echt korter is dan deze grens. 


Pab: REM PAGINALENGTE 
REM 

REM START TWEEDE KOLOM 
REM 


Zoek P regels verder naar begin van de eerste 
rechterkolom idem voor voldende pagina's. 
Res BR=BL-1 
BR=ER+1: IF PEEK(EBR)COIS GOTO 140:R=R+lrIF RSP GOTO 140: BR=BR+1 
REM Else START LINKERKOLOM & BR= START RECHTERKOLOM 
REM 
REM LINKERKOLOM 
Verplaats een regel linkerkolom. 
Bij einde regel de rechterregel gaan verplaatsen. 
Stop hij einde tekst. 
BC=PEEK (BL)  BL=BL+1: IF BC=13 GOTO 230 
POKE D,HC:DsD-1:AzA41:IF BLi=E SOTO 210: STOF 
IF PEEK(BR) «>13 THEN IF AXL THEN FOR I=A TO L:POKE D,32:D=D+1: NEXT 
REM RECHTERKOLOM 
Verplaats een regel rechterkolom, 
Stop bij einde tekst. 


BL=PEEK (BR)  BR=BR+ IF BC=13 GOTO 280 
POKE D,BC:D-D*i:IF BRe=E GOTO 260: STOP 
POKE D,13:D=D+i:A=@ 
Geels IF OF GOTO 210 
Fas pointers aan en zoek nieuwe start rechterkolom 
als einde pagina (P regels) nog niet werd bereikt, 
Deg: EL=BR:GOTO 1600 
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VIDEO REPORTER 
Gilbert PONS 


3, rue Mozart 
34500 BEZIERS 
Tel. 67.30.79.69 





Bonjour, 


C'est dans le but d'établir avec les adhérents de votre club une 
collaboration «artistique» que je m'adresse à vous aujourd'hui. 


Je recherche des programmeurs intéressés par la réalisation d'un 
«dessin animé en 16 ou 35 mm» sur micro-ordinateur. 


Le court métrage sera présenté aux différents festivals. 
Un contrat au milliéme liera chaque créateur. 
2 SOLUTIONS 


1 Théme/Club avec la réalisation d'une séquence 40 s. 
1 Théme/Créateur 2 à 5 s. 


THEME : «HYTEC ou le Tunnel sous la Manche» 


HYTEC, en collaboration avec la COMEX, va réaliser prochainement 
un relevé topographique des fonds marins de la Manche, en vue d'une 
expertise d'évaluation des coüts d'une potentielle édification d'ouvrages 
d'ART immergés pour relier le Royaume-Uni à la France. 


Ci-dessous une perspective du module HYTEC version chenille. al 
est possible de remplacer les chenilles par deux vis sans fin, ou par trois 
tuyéres propultrices : 2 horizontales, 1 verticale) 


Le module HYTEC est équipé de deux caméras (une fixe N/B, une 
mobile couleur), trois projecteur (2 fixes, 1 mobile). 


En outre, j'offre la possibilité à vos adhérents de devenir 
correspondants VIDEO REPORTER et de bénéficier à ce titre du transfert 
pratuit (super 8 - vidéo / photos vidéo / diapos vidéo) avec à leur charge 
es frais de transport et de cassettes (VHS ou Beta). 


(Vidéo Reporter est une entreprise de Reportages Vidéo spécia- 
lisée sur le mariage, spectacles, etc...) 


Dans la mesure de mes connaissances informatiques, j'assurerai une 
assistance à la programmation pour l'accession au langage machine 
spécialisée au graphisme. 


Dans l'attente de vous lire, et de vous compter parmi nos futurs cor- 
respondants, soyez assuré de mes sentiments distingués. 


QU eque 





HYTEX 
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Hun sibi fuer a Dal-Fans die Softu d 
EPRÜb- -Praosrammiera UNIFROM-i. Inter ierte 





den Artikel "Dauor kein EPROM sicher’ 





atd RER fia 






üzzembler geschrieben und 
Um = re er Datenarbeit im Monitor einen 
zu behalten: wird der Schrifimedus mit 44 Zeichen rro 


- Merfuesurna 





EFROM-I nhalts 
MOMNITOR-Aufruf 
Prosrammieren 


DE RE 





Folsende EFRÜM-Tyren sind ‘direkt’ rrosrammierbar f direkt? deshalb» 
da praktisch auch andere EPROM -Taren wom Frosramm aus bedient werden 
koennen» å 





MOHITOR Vi S verfusst ueber 3 Befehle : 





1» C adrl-adrh berechnet die Checkzumme im Sreicher- 


bereich adrl bis adrh 








20 D adrl-adrh disrlased Bereich adrl biz adrh und 
berechnet wiederum von jeder Zeile die S 
entsprechende Checkzunme à 














33 F adrl-adrh x sleiche Funktion wie in Utility 

qo P adrl-adrh xy Frinted alle ndr n im Bereich adrl : 
bis adrh mit Inhalt n 

S2 S adr sleiche Funktion wie in Utility k 


B, Ffeil oben Clear-Screen 


Zurueck zum Driver: 


Das Prosranm iae nur moesliche Einsaben zu und ianorier 





zt t alle 
Einsaben: welche zum Absturz fuehren koennten Datenzusriff ist nur 
im Bereich üüüüh-üffzet biz max. TFFFh+0Tfset erlaubt, der Offset 





betraest 1000h. 






Das Frosramm kann auf Audi ie bezosen werden bei : 
Andreas J. PO Helmstr: S in toon Berlin 82 
Ez kostet DM 55,- zuzueslich Versandkosten. 


*UNIPROM* 





Die Uerbinduna DAI 





Folsende Finbelesu 
+ — Fin 
GHO - Fin 
IN — Fin ZE 
Ck - Pin 
5 - Fin 2 


OUT — Fin Z 


Die Platine 
ebenfalls all 












ismebohrt. DM 15.805 kann beim Autor 
e notwendigen Bauteile, 








= 
E 
å 
m 
4 
m 
in 
Yu 
i 


- UHIPFROüM-1 wird ueber den DCE-Bus realisiert. 
maen erseben zich dabei : 





beztellt werden 














Der UHIPRUM-1 eichnet seine Flexibilitaet und seiner 
Freissuens it aus. zü Ban Frosranmierimeulse und 
und die a: beresis ind aber Grund ei Hachteils die 
jezchwuindisk * um d A beispielsweise zu lese DECH 








erden schon (90 
allerdinss schon 








) na 
ee das Prosrammieren verlanat 
18 Minuten. 


= 
— 
cu 
"qu 
2 


~œ 





The program is delivered with English documentation. 
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BREGNER! 
I 
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Hase & Igel 
| zeeslag 


Satellit 
: Missile Command 







































































MSX — EXTENSIONS 
NEW ZOOM 
VARIABLE PRECISION 
© PROGRAMMOTEEK 
DIGITIZER SOFT for : 
DAlnamic - P..DE LAET project 
- commercial unit 
FWP DUBBELKOLOMS 


HAAS EN EGEL 






































Een wedren voor verstandige spelers. 
En zoals de eeuwenoude fabel reeds aan- 
toonde, niet alleen de rapste kan winnen 
ook de trage als hij het maar slim ge- 
noeg weet aan te pakken. 

In het spel leveren wortelen de nodige 
energie om vooruit te komen.(elke zet 
die men doet vraagt een aantal wortelen) 
Bij de start van het spel krijgt iedere 
speler (minimum 2 spelers - maximum 6) 
een bepaald aantal wortelen en 3 kroppen 
sla, Met het aantal wortelen komt men 
echter niet toe om het einddoel te 
bereiken, Er bestaan echter 








NEEM EN WIN 
Dit spel wordtgespeeld tegen de 
computer, Er worden een aantal groepjes 


lucifers op het scherm getekend, 
De bedoeling is dat je 


{ om beurt een be-paald aantal lucifers verschillende mogelijk heden om aan 
van een groepje wegneemt, Wie de laatste wortelen te geraken. Het doel van het 
| lucifer kan nemen wint. Vooreerst kan je spel is om als eerste de eindmeet te 


bepalen of je zelf of de computer 
begint. Met de cursortoetsen kan een van 
de groepjes geselekteerd worden. Uit dit 


groepje moet minimum een lucif n 
worden (druk 1/2/3/4/5/6), e eren MISSILE COMMAND 


halen zonder salade en met slechts een 
beperkt aantal wortelen. Dus denk aan de 
fabel en verzin voor je speelt, 








Wie verslaat de computer ?? 





Je opdracht bestaat erin om de 

stad te verdedigen tegen aanvallers 

uit de ruimte, 

De besturing van het luchtafweervizier 

gebeurt door middel van de paddels, Je 

moet ervoor zorgen dat het vizier exact 

H | gericht wordt op de aanvallende ufo. 

i + Door het drukken op de event~knop wordt 

- - L|] voor een ontploffing gezorgd die de ufo 
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ri T tum 
L] l e 
SEE HERE TT = 
- maen DOG OON LL j x 
] ! = u m PAGE 2 
/ um = LI | EL DISABLE BREA 
T I L d ROL 
= 4 REM TOO oot " 
W^. od REM DEMO FURTLE-BASIC =- x 
mi 3 REM i naan 904 
dA REM olivier PATTINIEZ rn Se 
4 5 REM OOOH 006 
Fi D REM NO 007 
(o — COLORG 9 3 12 14:T0RTUE: MODE 5 mann PA 
20 CACHE aa DOD 009 
u 30 COULEUR PEN 1 man 010 
m 4 DEPLACE 210.0, YMAX/2 a LJ MOD 011 
1 19 or Lis 79 90: AVANCE 10 K TT) j 012 
m 105 DROITE 20. 0: RECUL 12.0: GAUCHE 24.9 an ann See 
m NEXT: DEPLACE 221.0, YMAX/2-0 H Sia 
115 COULEUR PEN 3: TOURNE 90.0 CT eis 
| 20 AVANCE 55,0: TOURNE 190.9 Cl Kie 
m 195 AVANCE 144.0 nge 185.0 ERRER ] 617 : 
LI TOURNE 270.0: AVA 5. | ois | 
L] s TOURNE 0.0: AVANCE 144 a: TOURNE 90.0: AVANCE 90.9 = | F = oe 0 
I 140 — DEPLACE 155. 0,125. 0: 808UB 200 rt SN å 30 "n 
: 20 um = 2 * Dies 
mid 14 DEPLACE 115.0, 25. 0: G0SUB a [] 021 esen Programmteil r . 
HH 450 COUL pEN 12:DEPLACE 52.0,130:0 sens 022 * DALLM INIT Sled nur einmal mit 
IS 155 ys V4=20:G0SUB 210 . T 4-250: 717200 DOODT 025 0300 F3 D n. 
CODE ` ve  DEPLACE Zar 210: X% SERERE en E 
NANO 165  GOSUB 30: mam 025 0302 210803 PUSH H 
= 170 X1-250: 250: GOSUB 3 PTT re. es PG 
LEE 175 WAIT TIME 503 60S mene CACHE: TT PEN 8 CT SE SE SHLD e RST-VEKTOR 6 
CH 180 TE ee 250 Homo en a ae gee een 
mann jas WAIT TIME od: RECOMMENCE: CACHE CEET Ee E 
CC igo COULEUR PEN 7 D CO 030 GC 
NOG 195 121602 VA 100: 80809 240 EE Ri " 
FO Ld 5 a E 
199 GOTO 197 num ped EE | 
H 2 on 17=0 TO 30: AVANCE g.e:DROITE 12-0 BERE En & G DES NORMALEN INTERRUPT 
zoe F IRN mean 3 0308 211303 €— IS 
| 205  NEXT:RETUR f . GUTT) ent a dne 
CITY 21e For 1750 T 49: AVANCE yr DROITE Y [] | NO er Ho TURN RETURN-ADRESSE 
m 515 COULEUR PEN cry MOD 14241 meen en io ee a 
LI 220 . NEXT: RETURN Xv men 037 5 en 
230 FOR 14=0 TO JA: DEPLACE DAAG mmm 038 * i NORMALE ROUTINE 
DROITE 11410. 0: AVANCE 20.0 RETURN LLLI 039 0313 FS å 
GAUCHE 30.9: VANCE 10.0:NEX ET, TOURNE 17+12.0 Baum 040 0314 340001 RETURN PUSH FSW 
FOR 17=0 TO 480 grep 32 DEPLACE Mi Mn mann a RAID? er 
COULEUR PEN oe AVANCE 35. 0: GAUCHE at FH ER SE ve | 
COULEUR PEN 10: AVANCE 30.0: GAUCHE HI ` FT ke Sort AN? i 1 LAEUFT EIN BASIC 
= B 380101 JUMP: iP SIC 
COULEUR PEN ve AVANCE 30.9 = ml 044 OXIE B7 UDAA S101 : ROGRAMM 7 
NEXT: RETU VEKS mm 045 O31F CA2503 ORA A 
FOR 17= goo STEP 15: DEPLACE yz, hi Mes 1 | els SE SE Dee 1 
TOURNE 1%: AVANCE 49.9: GAUCHE 126.9 OOo ee ae TE i 
AVANCE 50, 0: GAUCHE 120-° a DICERE Dia. raand I WENN JA, LOESCHE 
PER AVANCE A0, 0: NEXT: RETURN == 049 0327 CF JUMP? POP FSW 1 BREAK FLAG 
TT e 050 RET 
j ! 1 1 = = f Fo 051 * 
O PF | = = [1 1 1 CL | 09403528 å 
COCOON JI = TERE END 
| OG | | EE 
LJ d F OD [ ] í GO 
RN | OOOH | j DOD 
228 D ET OO JL JEU AL ] 
Ge “DEMO TURT JAHN 
vr et INIT 0300 JUMP1 0322 
ST z 322 JUMP? 032 
ART ONCE UMF? 0326 RETURN 0313 
“DISABLE BREAK* 
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A lot of people have been asking me to 
implement a DBASIC version on disk. 
Since there are several disk drive 
systems available for DAI, each operated 
by one ore more disk operating systems, 
adapting DBASIC for each system 
seperatly would require to much work and 
would increase the risk of 
incompatibility between different DBASIC 
versions, Writing one extension for each 
disk drive system would generate exactly 
the same problem, 

This is why I hesitated so long to come 
up with a disk based DBASIC. 

Finaly, in may, I was encouraged to 
proceed when the INDATA company ordered 
a DBASIC implementation on their  2*320 
kbyte system. 

To avoid incompatibility with  DBASIC 
versions to be implemented on other disk 
drive systems in future, I designed the 
following DBASIC extensions : 


l. The file handler (DBFIL.SYS file) 


-all extended commands and functions 
concerning disk access go into one 
extension file : the file handler. 

This extension is totaly independant on 
the hardware connected to the DAI. This 
means that DBASIC will always use the 
same commands and functions to access 
files, regardless of the disk drive 
system used (INDATA floppy disk drives, 
KENDOS drives, hard disk?...etc...). 
Exept for the FILES command and the DSKF 
function, the file handler is also 
completely independant on the way files 
are stored on diskette (handled by the 
basic dos). 

Further on in this text, most commands 
and functions of the file handler are 
explained, 


2. The basic dos (DBDOS.SYS file) 


The basic dos takes care of the layout 
of files, directory entries and disk 
Space allocation information on disk. 
Like the file handler the basic dos is 
completely independant on hardware. The 
current DBDOS works on a CPM V2.2 filing 
Structure : 

i.e. -16 logical drives A-P can be 

installed 
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-a drive can contain up to 8 mega- 
bytes 

-a file can contain up to 8 mega- 
bytes 

-the disk layout is table defined 


If you are the owner of both the CPM 
V2.2 and the DBASIC V2.2 packages for 
your disk drive, the same files can be 
accessed by both systems if you specify 
identical disk parameter headers and 
disk parameter blocks in both BIOS's 
(see CPM operating system manual). 

Note that other filing systems could be 
developped for DBASIC to accomplish file 
compatibility with MSX-DOS, MS-DOS or 
other disk operating systems. 


3, The basic input/output system 
(BIOS640.SYS, BIOS160.SYS, 


The bios part handles the physical input 
from and output to the disk drive. 

At this moment I have completed a bios 
for the INDATA 2*320 kbyte floppy drive 
and a RAMdisk (which I used for testing) 
I am about to complete a bios for the 
INDATA 2*80 kbyte floppy drive and other 
bios's will follow soon. 


B. Booting and linking 


When switching on your DAI, DBASIC V2.2 
will be loaded automaticaly, followed by 
the configuration file "CONFIG.CFG".The 
standard configuration file will execute 
the following commands : 


EXTEND "DBDOS" 
EXTEND "DBFIL" 
EXTEND "<bios name>" 
BDOS="DBDOS" 
BIOS="<bios name>" 
SK tast 
[NPUT=" AUTOEXEC , BAT" 
LOAD "AUTOEXEC. BAS" 





X CJ CJ C 9 9 8 


r^ 


i.e. DBASIC will be extended with the 
basic dos, the file handler and the bios 
Because these extensions are relocated 
they have to be linked together : 
DBDOS="DBDOS" will link the  "DBDOS" 
extension to the file handler. 
DBIOS="<bios name>" will link the bios 
to the basic dos, 

DISK "A:" will select drive A. 

Then, if present, the "AUTOEXEC.BAT" 
batch file wil be loaded and executed. 
If not present the DBASIC program 
"AUTOEXEC.BAS" will be loaded and 





executed if it is a compiled program. 
Note that the configuration file may be 
changed, but ALWAYS include the first 6 
commands, 


C. File names 


The syntax for file names is compatible 
with the CPM file name syntax. 
In general : «file reference» 


[<drive>: ]<filename>[.<file ext>] 


with : 
<drive> =A,B,...P 
<file name>=up to 8 alphanumeric charac- 


ters or !,",#,$,%,& or '. 
If <file name> contains more 
than 8 characters it will be 
truncated. 

<file ext» =up to 3 alphanumeric charac- 
ters or !,",#,$,%,& or ' 
If <file ext> contains more 
than 3 characters it will be 
truncated. 


Lower case characters will be converted 
to uppercase. 

-Omitting <drive>: means the default 
drive selected by the DISK command will 
be accessed. 

-Omitting .<file ext» means the default 
file extension for the command using 
<file reference> will be supplied : 


command default file ext file type 
LOAD „BAS 0 
SAVE 

R (utilities) .UTY 1 
W (utilities) 

LOADA „ARR 2 
SAVEA 

$EXTEND .SYS $ 
FILES „DAT 3 
OPEN 

CREATE 

KILL 

PROTECT 

UNPROTECT 

$OUTPUT 

$INPUT 

SPL files «SPL & 
DNA files „DNA # 
/ .TXT 4 
/ .HLP 5 


Note : file types correspond to a 
default file extension but are not used 
by DBDOS (ex. SAVE "MYPRG.CPL" is valid) 
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D. File access 


DBASIC can access files in sequential, 
random, relative and  random-relative 
mode. Records in files can have both 
fixed and variable length. 


-files : before a file can be opened, 
the file must be declared in  DBASIC 
using the FILE statement : 


ex. 100 FILE INFILE,OUTFILE,WORKFILE 


The FILE statement reserves the 
variables INFILE,OUTFILE and WORKFILE as 
file variables and allocates space for 
their file control blocks and dma- 
buffers. Note that DBASIC references 
files by a file variable (cfr. pascal) 
rather than by a file number as in other 
disk basics. 


-Open a file : before any access can be 
made on a file it has to be opened with 
the open statement. 


ex. 110 OPEN OUTFILE,"B:TEST.TST" 
120 OPEN ADDRESSES, AD$-" , ADR" 


Note that the OPEN statement does not 
need a mode specification like "FOR 
INPUT", "FOR OUTPUT" or "FOR APPEND", If 
you want to extend a file (append mode), 
locate the end of file first : 


ex. 200 OPEN MYF,F$:LOCEOF MYF 
1.--— VARIABLE LENGTH RECORDS --- 


After opening a file you can write data 
into it using the #PRINT statement : 


ex. 130 I=1:A$="good " 
140 #PRINT OUTFILE;1,A$, "day" 


In the file the different elements of 
the record will be separated by ',' and 
the record will be completed with 


carriage return, line feed. 





i.e. l, good, d a y Odh Oah 
#PRINT writes sequential because of the 
variable record length. 


The end of file mark is written by : 


150 #PRINT OUTFILE;CHR$(#1A) 
160 CLOSE OUTFILE:END 


IMPORTANT : at the end of a program 
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you always have to close those files file position 1000 (bytes) the record -system input : Input normally coming -PROTECT «file reference» : write/delete 
data has been written in (#PRINT or defined by the field NAMAD, from keyboard comes from a file. disables a file : ex. PROTECT "XREF.SYS" 
PUT), to update the directory. ` | 
ex. 90 PUT MYF;NAMAD.1 ex. 10 $INPUT="AUTOEXEC.BAT" -UNPROTECT «file reference» : write/de- 
Variable length records can be read by : 20 WHILE A-O DO INPUT AS : lete enables a file : ex. UNPROTECT F$ 
will write relative record 1. 30 PRINT A$:WEND 
200 #INPUT INFILE;NUM,A$,B$ NAMAD.O will start at file position O -DISK( <drive>:] : selects a disk drive 
NAMAD.1 will start at file position Input coming from AUTOEXEC.BAT will be for further operations : 
The following example illustrates the O+FLDLEN (NAMAD )=0+20+10+20+5+4+4=63 placed in A$. ex. DISK "B:" : selects drive B 
use of #PRINT and £INPUT. NAMAD.I will start at file position i DISK : reselects a disk drive after 
| I*FLDLEN(NAMAD).  FLDLEN(NAMAD) repre- : ex. $INPUT="AUTOFXEC. BAT" | the DCR or CAS command has been 
10 TITLE "EXOO1" | sents the field length) given. 
20 FILE TEST : Input coming from AUTOEXEC.BAT will be | | 
30 OPEN TEST, "TEST" ex. 90 PUT MYF,OFFSET;NAMAD.J interpreted by DBASIC. | -MOUNT[ <drive>:] : mounts the disk in 
40 ON BREAK GOTO "CLOS:A=0 <drive>, i.e. readys a disk for access. 
50 WHILE A«O DO INPUT "TYPE TEXT OR NAMAD.J will be written starting at file ex. $INPUT="HOME.TXT" ex. MOUNT "A:" : mounts the disk in 
BREAK"; TEXT$ position OFFSET+J*FLDLEN(NAMAD) drive À 
60 £PRINT TEST,TEXT$ with HOME.TXT containing the text : | MOUNT : mounts the disk in the 
70 WEND ex. 90 PUT MYF;NAMAD selected drive. 
100 "CLOS CLOSE TEST 100 PROCEDURE HOME note : The FILES command automaticaly 
110 OPEN TEST, TEST" will write records sequential into the 110 ?CHR$(12); |. mounts the disk: 
120 WHILE EOF(TEST)=0 DO #INPUT TEST file. 120 END PROC 
; TEXTS H. Functions 
130 PRINT TEXT$:WEND IMPORTANT : at the end of a program will merge the HOME procedure to the | uuu 
140 END you always have to close those files program currently in memory. 
data has been PUT in. Besides the functions already discussed 
2. --~ FIXED LENGTH RECORDS --- F. Listing the directory | (LF$,RG$,FLD and FLDLEN) there are : 
Reading records will be done by GET : RT | 
To access files in random, relative or | -DSKF(<drive>:) : returns the free disk 
random-relative mode, fixed length | GET «file var»[,«random file position»]; General : FILES[ «file reference»] space in kbytes, 
records have to be used. They can be <field var>[.<relative record>] ex. PRINT DSKF("A:") 
defined by the FIELD statement : ex. FILES | PRINT DSKF("") : returns the free 
GET performs exactly the opposite disk space of the disk in the currently 
ex. 50 FIELD NAME;LF$(NAME$, 20) , LF$(CNA operation of PUT. will show all files on the disk in the selected drive. 
ME$,10) selected drive. 
60 FIELD NAMAD;FLD(NAME) , LF$ (ADDRES E. System output/input -LOC(<file var») : returns the current 
88,20),RG$(NR$,5),AGE,PCT! | Emm ex. FILES "b:*,BAS" file position in bytes. 
ex. LOCEOF TEST : EOFPOS=LOC(TEST) 
In this example the FIELD statement will -System output : you can redirect all will show all DBASIC program files on EOFPOS contains the length of the file. 
reserve NAME and NAMAD as field data normally printed on screen or the disk in drive B. | 
variables. printer to a disk file. -EOF(<file var») : returns l if the end | 
LF$(NAME$,20) reserves 20 bytes in the ex. FILES "AUTO?X??.BA*" of file has been reached or 0 else. | 
record for the NAME$ variable, NAME$ ex. 10 $OUTPUT="AUTOEXEC, BAT" | ex. 50 WHILE FOF(TEST)=0 DO #LINEINPUT | 
will be justified left. 20 PRINT "$EXTEND "; will show all files whose name begins | TEST;A$ | 
RG$(NR$,5) reserves 5 bytes in the 30 PRINT CHR$(#22) ;"KEY";CHR$(#22) with AUTO, have a X on position 6 and 60 PRINT A$:WEND | 
record for the NR$ variable, NR$ will be 40 PRINT "KEYON" i have a file extension beginning with BA. | 
justified right, 50 PRINT CHR$(#1A) | Note that wildcards (? and *) are only | 
FLD(NAME) includes the NAME field into 60 END { allowed in the files command. | Willy Coremans | 
the NAMAD field, f | 
For integer and floating point variables This small program creates a | G. Utility commands | 
4 bytes will be reserved in the field, | "AUTOEXEC.BAT" file which will extend | ER | 
DBASIC with function keys, | 
Writing the records into a file will be | Utility commands other than FILES are : 
done by the PUT statement. In general : ex. $OUTPUT="PRINT.PRN": $LIST 
å | -CREATE «file reference» : creates a 
PUT «file var>[,<random file position»]; This command will generate a cross i file on disk : ex. CREATE "A:GENINFO" | 
<field var>[.<relative record>] reference listing into the PRINT.PRN i | 
I 


file. | -KILL «file reference» : deletes a file 


ex. 90 PUT MYF,1000;NAMAD from disk : ex. KILL FNAM$ 


will assemble in the file MYF at random 








i 
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7* Championnat international de 
programmes d'Othello-Reversi 


7th Othello-Reversi Programs World Championship 


BULLETIN D'INSCRIPTION 























Prénom, Nom : 
Adresse i 
Téléphone : 
Age : 


Matériel utilisé (y compris taille, mémoire et périphériques) : 


Nom du programme 


Auteur du programme 


Taille du programme i 

Langage utilisé t 

Le matériel utilisé est-il un ordinateur de poche ? 
Le programme est-il entièrement interprété ? 

Qu bien comporte-t-il au moins une partie compilée 


ou assemblée ? 





RENI 


Autres membres de l'équipe : 


ATTENTION : Les concurrents doivent disposer de leur matériel. 
Tout concurrent non présent à 8H 45 sera exclu du concours. 


L'alimentation électrique fournie sera du 220 V avec prise de terre. 


Le Championnat a lieu 

le SAMEDI 21 SEPTEMBRE 1985, pour les ordinateurs de table, 

les SAMEDI 21 et DIMANCHE 22 SEPTEMBRE 1985, pour les ordinateurs 
de poche, au SICOB, au CNIT-LA DEFENSE. 


Le rendez-vous est fixé à 8H 30 dans le hall d'arrivée du R.E.R. 


l'endroit exact vous sera confirmé ultérieurement. 


Le présent bulletin est à retourner à L'ORDINATEUR INDIVIDUEL 
(OTHELLO) 5 place du Colonel-Fabien 75491 PARIS Cedex 10. 














L'ORDINATEUR INDIVIDUEL (Othello) 5 place du Colonel-Fabien 75491 Paris Cedex 10 = (1) 240 22 01 
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7: Championnat International de programmes d'Othello-Reversi 
7th Othello-Reversi Programs World Championship 


Organisé par 


ORDINATEUR "S 
INDIVIDUEL SRO 


(INTERPRETES 
21-22 septembre 1985 ET COMPILES) 











7 


REGLEMENT 


1. - Chaque partie se déroule sur un espace de 6x6 = 36 cases, les coordonnées pour référencer chaque carré lors de la communication des coups 
entre les joueurs sont exprimées de méme manière qu aux échecs : Blanc aura le carré A1 dans son coin gauche et H1 dans son coin droit. Noir aura A6 
dans son coin droit et F 6 dans son coin gauche 

2. - Pour des raisons de simplicité. ia position de départ est celle d’Othello : en début de partie. Noir a des pièces sur les carrés C3 et DA, Bianc surles carrés 
C4 et D3. Noir joue le premier à partir de cette position 

3 - Chaque joueur dispose d'un certain temps pour jouer tous les coups d'une partie.Ce temps est de 60 minutes par joueur et par partie. Si au coufs d'une 
partie l'un ou l'autre des adversaires dépasse son temps alloué, l'arbitre doit obligatoirement étre appelé. L'arbitre pourra alors soit déclarer vainqueur le 
joueur qui n'a pas excédé son temps. soit demander la continuation de la partie (le temps étant toujours décompté) s'il estime qu'elle peut être terminée 
rapidement. Dans ce dernier cas. il fixera à chacun des joueurs une limite de temps que celui-ci ne pourra dépasser faute d'être déclaré perdant 

4.- Si un joueur perd par manque de temps, le nombre de point marqué par chaque joueur sera calculé par péréquation à 36, à partir du nombre de pions 
présents sur l'échiquier 

Toutefois, si le gagnant a moins de pions que le perdant, le score sera alors de 31 points pour ce dernier et de 33 points pour le gagnant 

5. - Ala fin d'une partie achevée normalement (passe de deux adversaires. ou 36 pions posés). chacun des deux adversaires se voit attribuer un nombre de 
Dons calculé comme indique ci-dessous 

A) S: tous les pions ont été posés. le nombre de pions retenu pour chacun est égal au nombre de pions dont il dispose sur l'échiquier. 

B) Si moins de 36 pions figurent sur l'échiquier, on calcule d'abord le nombre de pions à attribuer au vainqueur (celui qui en a le plus), soit R. Ce nombre est 
calculé à partir du nombre de pions sur l'échiquier, soit V pour le vainqueur et P pour le perdant, suivant la tormule R = Partie entiere de (V x 36/(V + P) + 0,5) 
Le nombre de pions retenus pour le perdant est alors de 36-R 


6 - Une victoire vaut deux points. un match nui un point et une défaite zéro. Si deux programmes ou plus sont cx aequo. ils sont departagés par les totaux 
(pions propres - pions de l'adversaire) des parties qu'ils ont gagnees dont l'on soustraira les totaux des parties perdues. Cette méthode avantage les 


programmes qui gagnent avec ies plus grands écarts 
Sil y a encore des ex aequo. ils seront dits ex aequo sauf s'il est possible de jouer une nouvelle partie (ou des nouvelles parties) pour les départager. 


7 - Chaque participant doit apporter son PSI, ainsi que tous les accessoires nécessaires à son fonctionnement (prises multiples notamment) 


8. - Chaque participant est responsable de son PSI et de son bon fonctionnement 

9. -Siunjoueur (par maladresse), ou sa machine (par plantage du materiel) interrompt la partie et que celle-ci ne puisse plus étre reconstituée dans un délai 
raisonnable, ce joueur sera deciaré perdant. Son adversaire est déclaré vainqueur et marque 2 points. L'attribution des nombres de pions se fait suivant la 
procédure décrite au paragraphe 4 

10.- En cas de coup irrégulier d'un programme. ce programme est déclaré perdant de ia partie Son adversaire est déclare vainqueur et marque 2 points 
I! sera attribué 36 pions au vainqueur et 0 à son adversaire x 

11. - Chaque participant dispute 6 parties sur 2 jours 

12. `- Chaque ronde se dispute selon le systeme suisse. c'est-à-dire qu à l'issue de chaque tour. l'arbitre fait jouer les concurrents qui totalisent le méme 


nombre de points 
Deux concurrents ne peuvent s'affronter dans une partie s'ils ont déjà disputé un match ensemble. En conséquence. l'arbitre les fera jouer contre des 


concurrents ayant le total le plus approchant 

13. - Si un joueur ne peut jouer faute de prise à réaliser, il passe son tour, mais S'il peut prendre. il est obligé de prendre. 

14. - Les coups joués par chaque concurrent sont écrits par lui-méme à chaque coup sur la feuille de marque ambulante qui circule entre les deux 
adversaires. La notation utilisée est obligatoirement celle définie au paragraphe 1 


15- Dans ia mesure du possible, un jeu complet d Othello Reversi sera placé entre les opérateurs humains qui auront la responsabilité de la pose des 
pions et du retournement des pions capturés. A part les opérateurs et l'arbitre. personne ne devra toucher damier et pions pendant la partie 
16. - On ne peut changer aucun paramétre du programme en cours de partie. mais on peut indiquer au programme le temps dont il dispose encore. 
s'il requiert cette information 
17. - l'est prévu deux catégories 

- Interpréteurs ne faisant appel à aucun sous-programme en langage machine; 

- Langage machine, assembleur ou compilateur. 
Certains details à ce sujet ne peuvent être décidés qu'en fonction du nombre d'engages dans chaque catégorie. L'arbitre les explicitera au début de l'épreuve 
18. - Les arbitres de fa rencontre sont seuls juges pour régler tout litige 


19. - Le niveau de jeu des machines ou le temps de réflexion par coup est fixé avant le début de chaque partie par les personnes qui les ont engagées dans 
ie tournoi. Il ne peut en aucun cas être modifié en cours de jeu à l'initiative des manipulateurs. Dans le cas ou le programme demande lui-même un change- 
ment. celui-ci pourra se faire aprés que l'arbitre ait été appelé pour en constater fa validité 


20. - La participation au tournoi sous-entend l'acceptation du présent règlement 


L'ORDINATEUR INDIVIDUEL tient à rappeler aux participants de ce tournoi qu'il s'agit avant tout d'un jeu. Le climat se doit d'étre celui d'une 





grande fête de l'informatique individuelle. 
ee donc l'esprit et non la lettre du règlement qui sera pris en considération par l'arbitre pour trancher tout litige. 235 p 
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Hardings Cottage, Swan Lane 
Winterbourne, Avon BS17 ina 
Winterbourne (0354) 775731 


ENGLAND 













niathem's article in Issue 
te programmes for students of Econ- 
randomise the initial values of variables; sa 
tition, they learn the basic principles, not just a 
À for that’s what I hope). Sa it was disturbing to 
that they would always start from the same point after 
: (RND € 1) is always 0.571057 first time round, on my 
by the way.) 





| In this situation, what matters is that the user cannot 
ntrol or repeat the inital values. The routines proposed by 
nad Vanlathem would not be suitable — in effect, they require 
the user himself to supply the random element. A solution which 
has occurred to me is to use the internal Timer over an interval 
which is difficult to predetermine e.g. where an input ar key 
entry is called for. Å self-contained example follows. 
Although the choice for the value of RND(i} is confined to the 
first 255 members of the pseudo-random series, I think it is 
pretty hard for the user to determine which it will be. 


PE 


REM * * * RANDOM NUMBER SEEDER x * s 

FOKE Bunker 

PRINT "Press any key for a nearly random number." 
3=GETO: IF A=0,0 GOTO 40 

FOR 1=1.0 TO PEEK(EIBE) : RANDOM=RND Ci. 0) 2 NEXT 
PRINT "Your nearly random number is";RNDi1.0) 





Yours sincerely, 


tran k low 





RANDOM NUMBERS 





PRINT CHR$(12):CLEAR 20060: A=24: Ai=A-1:L=0:N=0:S=0: T70: 2-0 
FOR 1=#275 TO #28F:POKE 1,#1@:NEXT:REM IMPINT 

CURSOR 27,14:PRINT "D C R" 

CURSOR 17,12:PRINT "P ROGRAMMOTEE K" 

CURSOR 15,10:PRINT “voor"3A;" cassetteband-kanten. 

CURSOR 2@,7:PRINT "Wilt u uitleg.? J/N":G0SUB 3920:REM GETC 
IF 0<>74 AND 84578 THEN 139 

IF 0-78 THEN 170 

GOSUB 5504:G0T0 89 

DIM AB(A1),AP(A1),NB(200) , NP (200) 

DIM PL(A1,15), PT(A1, 19) ,LP (200) , TP(200) ‚TL (A1) , VL CAI) 

DIM NP$(A1,15),PN$ (200) , D$ (0) 


REM sse MENUTEKST 3h 
PRINT EHRS (42) : CURSOR 9,23 


PRINT Hier is uw PROGRAMMOTEEK. Wenst us": PRINT 

PRINT " A. een BESTAND in te lezen. 7" 

PRINT " B. een OVERZICHT van de banden, ?" 

PRINT " C. een OVERZICHT van de programma "e op ‘een’ band. ?" 
PRINT " D. een OVERZICHT van alle programma’s per band," 
PRINT " E. een WIJZIGING van een overzicht.?" 

PRINT " F. een NIEUW programma in te schrijven.?" 

PRINT " G. het BEWAREN van het bestand.?" 

PRINT " H. het PRINTEN van het bestand.?" 

PRINT " I. het ZOEKEN naar een programma, ?" 

PRINT " J. het SAMENSTELLEM van een programma lijst.?" 
PRINT " K. het SORTEREN van de programma lijst.?" 

PRINT " L. een OVERZICHT van de programma lijst.?" 

PRINT " M. het BEEINDIGEN van dit programma. ?" 

PRINT 

PRINT " Wat kan ik voor u doen.?" 

PRINT " Type de gewenste letter A-M in. " 


W=Ø: GOSUB 3920 

IF 8564 AND 0178 THEN ü-Q-64 

IF O<1 OR B^13 THEN 300 

IF Q=1 OR G-6 OR Gz13 THEN 400 

IF 2-0 THEN GOSUB 3600:G0T0 300 
IF B<>11 AND GC^12 THEN 409 

IF S=@ THEN GOSUB 3700:G0T0 300 


REM. e AM B C D E F 6 H I d K L M 
ON Q GOSUB 509, 700, 709, 1000, 1109, 1500, 1900, 2200, 2400, 2700, 2800, 3100, 3500 
IF W=1 THEN 300 

GOTO 208 


REM 36. BESTAND INLEZEN st 

IF Z=1 THEN GOSUB 3860:W-1:RETURN 

GOSUB 4400:REM BLANCO REGELS 

CURSOR 9,5:PRINT "Is het bestand op de band aanwezig.? J/N":GOSUB 3920 
IF 84574 AND G<>78 THEN 520 

IF 0-78 THEN GOSUB 4400:W-1: RETURN 

CURSOR 9,3:PRINT “Dient de band te worden gespoeld.? J/N ":GOSUB 3929 
IF &<>74 AND Q<>78 THEN 566 

IF Q-78 THEN W=1:GOTO 699 

GOSUB 4690: RETURN 

CURSOR 21,1:PRINT "Even geduld a.u.b." 

LDADA D$ " Datum." 

LOADA AB " Aantal banden." 

LDADA PL " Programmalengte." 

LOADA PT " Programmatype." 
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450 
560 
570 
480 


700 
716 
736 
746 
759 
760 
779 
790 
799 


899 
819 


829 
836 


840 
859 


700 
910 
920 
930 
940 
930 
269 
979 


1000 
1919 


1920 
16:39 
1040 
1050 
1040 


1100 
1110 
1120 


1139 
1450 
1169 
1178 
1180 
1199 
1290 
1210 
1220 
1230 
1248 
1250 
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== PROGRAMMOTEEK 


LOADA AP " Aantal programma’s per band." 

LOADA NP$ " Namen van de programma’s per band." 

CURSOR 9,1:PRINT "Het bestand bevindt zich in het geheugen. " 
Zei: RETURN 


REM ritt HET PRINTEN VAN HET BANDEN-OVERZICHT. 3x3: 
POKE #131, 1: PRINT CHR$(12):POKE #131,0 


PRINT " Banden overzicht dd. ";D$(6) 

PRINT " Vla- Aant. Vry ! Vig- Aant. Vry ! Vlg- Aant. Vry" 
PRINT " no. prgr. lgt.! no. prgr. lgt.' no. prgr. lgt." 
PRINT " / sree nnn nnn ne neen x 


BOSUB 4100:REM Vullen van de array’ e, 

AS-A/3:FÜR I-0 TO A3-1 
LISINT(LEN(STR$ (I41) D :LA=INT (LEN(STR$ CAP CI2) D e LN 
INT(LEN(STR#(VL(1)))) 
LI1=INT(LEN(STRS (I+A3+1))) : LAL=INT (LEN(STRS (AP (IFAS) ) ) LV1= 
INT(LEN(STRS(VL (I+A3)))) 

LI2=INT(LEN(STR$ (14244341) ) ) : LAZ=INT (LEN (STR$ (AP (142383) ) ) ) e LV2= 

INT (LEN (STR$ (VL (I+2+43) ) }) 

PRINT TAB(9-LI 3; 1+13 TAB(1S-LA) SAP CI) 3 TAB(21-LV) SVL(I) 3" 193 

PRINT TAB(26-LI1); 1+43+15 TAB (32-LA1) SAP (1 +43) 53 TAB (38-LV1) SVL (1403) 3" 


na 
WW 


PRINT TAB(43-L12) 5 [+2#A3+13 TAB (49-LA2) 5 AP (142462) ; TAB (55-LV2) i VL (I 
483) 
NEXT I:PRINT :GOSUB 3900:RETURN 


REM eee OVERZICHT VAN DE INHOUD VAN EEN BAND. see 
GOSUB 4400:REM BLANCO REGELS 

CURSOR 9,5:PRINT "Type het volgnummer, >0<"jA+13 

INPUT ",van de band in."iI:PRINT 

IF I<1 OR 1348 THEN 920 

I=I-1:PRINT CHR$(12):GOSUB 4200:REM Printen van overzicht. 
GOSUB 3909:REM GETC 

RETURN 


REM stat TOTAALOVERZICHT VAN DE PROGRAMMA'S, PER BAND. stk 
GOSUB 4408: CURSOR 9,3:PRINT "Voor beeindiging Type return.":WAIT TIME 
100 

POKE 4131,1:PRINT CHR$(12):POKE #131,0 

FOR I=9 TO AB(Ø)-1:POKE #131,1:PRINT CHR$ (12) : POKE #131,0 

GOSUB 4200:REM Printen van overzicht. 

POKE #131,1:60SUB 3890: IF 0=13 THEN RETURN 

POKE #131,9:PRINT :NEXT I: RETURN 


REM * HET WIJZIGEN VAN EEN OVERZICHT. #*##2% 
GOSUB 4409: REM BLANCO REGELS 

CURSOR 9,5:PRINT "Wenst u het programmabestand te wijzigen. ?J/N ":PRINT 
:GOSUB 3920:REM GETC 

IF 9€»74 AND GC»78 THEN 1120 

IF 8-78 THEN W=1:GOSUB 4499: RETURN 

GOSUB 900:REM Overzicht van de inhoud van een band. 
INPUT "Dud programma-volgnummer: "EK: PRINT 
IF K<1 DR K>16 THEN 1170 

J=K-1 

PRINT "Hieronder kunt u de wijziging intypen." 

PRINT "Hetgeen ongewijzigd blijft,beantwoordt u met @ " 
INPUT "Nieuw programma-volgnummer,>Ø<17: "SL: PRINT 
IF L=@ THEN 1269 

IF L<1 OR L>16 THEN 1229 

J=L-1 
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1260 
1279 
1280 
1299 
13698 
1319 
1320 
1339 
1349 
1350 
1340 
1578 
1389 
1390 
1400 
1416 


1599 
1505 
1510 
1520 


1530 
1540 
1559 
1549 
1570 
1580 
1599 
1599 
1519 
1620 
1639 
1649 
1659 
1660 
1576 
1489 
1490 
1700 
1716 
1720 
1730 
1749 
1759 
1750 
1779 
1789 
1798 
1800 
1819 
1820 
1830 


1900 
1916 
1920 
1938 
1949 
1950 


~~ PROGRAMMOTEEK 

INPUT “Nieuwe programmalengte in sec. “gl: PRINT 
IF L=@ THEN 1300 

IF L<® OR L592 THEN 1260 

PL, Det 

PRINT “Voor ongewijzigd type 3 in." 

INPUT "Nieuw type programma (Ø,1),-data (2). "sL:PRINT 
IF L-3 THEN 1350 

IF L<8 DR L>3 THEN 1316 

PTI, J) =L 

INPUT "Nieuwe programmanaam. "sL$:PRINT 

IF L$="" THEN 1350 

IF L$-"O" THEN 1390 

NP$(CI,J)-L$ 

IF AB(@)>I+1 THEN 1410 

AB(@)=I+1 

RETURN 


REM 33334 HET INSCHRIJVEN VAN EEN NIEUW PROGRAMMA. «exse 
GOSUB 4400: REM BLANCO REGELS 

CURSOR 9,5:PRINT "U wenst een nieuw programma in te schrijven.? " 
CURSOR 9,3:PRINT "Betreft het een bestaande band, ? J/N ":GÜSUB 39720: REM 
GETC 

IF 0«»74 AND GK>78 THEN 1520 

IF 0-74 THEN 1430 

GOSUB 790: REM Bandenoverzicht. 

PRINT CHR$(12):PRINT "Voor einde inschrijving type 9 in. "PRINT 
PRINT "Type het gewenste bandvolgnummer >08 "3A+1.93 

INPUT " in. ";L:PRINT 

IF L=® THEN RETURN 

IF LØ OR LOA THEN 1570 

I-L-1:1F AB(Ø)=I THEN AB(Ø)=I+1 

GOTO 1499 

IF 2-0 THEN GOSUB 3400: Wel: RETURN 

PRINT CHR$(12):PRINT "Voor einde inschrijving type 6 in. ":PRINT 
INPUT "Type het bandvolgnummer in. "SL:PRINT 

IF L=@ THEN RETURN 

IF L<Ø OR L>A THEN 1659 

I=L-1 


INPUT "Type het programmavolgnummer in. "3L: PRINT 
IF L=@ THEN RETURN 

IF LØ OR L?16 THEN 1690 

AP (Debs det 1 

INPUT "Type de programmalengte in sec. in. "SL: PRINT 


IF L=@ THEN RETURN 

IF L<@ OR L>92 THEN 1730 

PL(I,J)=L 

INPUT "Type het type progr. (@,1),-data (2) in. "SL:PRINT 
IF LØ OR L>2 THEN 1770 


PTI, JJL 

INPUT "Type de programmanaam in. "SNP$(I,J):PRINT 
IF NP$(I,J)-" " THEN 1800 

Zei 


PRINT :GOTO 1690 


REM sss HET BEWAREN VAN HET BESTAND OP DE BAND, juries 
GOSUB 4490:REM BLANCO REGELS 

CURSOR 9,5:PRINT "U wilt het bestand bewaren. ? J/N 
IF G<>74 AND GC»78 THEN 1920 

IF 0-78 THEN GOSUB 4409: Wel : RETURM 

CURSOR 9,3:PRINT “Dient de band te worden gespoeld.” J/N":GOSUB 3929 


":GOSUB 5920 
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1940 
1978 
1980 
1996 
2000 
2210 
2929 
2039 
2040 
2050 
2060 
2979 
2080 
2999 


2299 
2210 
2240 
2250 
2260 
2278 
2289 
2290 


2400 
2410 
2420 
2430 


2440 
2450 
2460 
2470 
2480 
2490 
2500 
2519 
2920 
2550 
2540 
2350 
2569 
2579 
2980 
2570 
2600 


2700 
2719 
2720 
2736 
2749 
2750 
27680 
2778 


2899 
2810 
2828 
2830 
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IF 8:274 AND 04278 THEN 1950 

IF 0=78 THEN W-1:GD0TO 1999 

GOSUB 4600: RETURN 

CURSOR 9,1: INPUT "Type de datum in. 
GOSUB 4490: REM BLANCO REGELS 
CURSOR 21,3:PRINT "Even geduld a.u.b." 


"$0$(0) 


SAVEA D$ " Datum." 

SAVEA AB " Aantal banden." 

SAVEA PL " Programmalengte," 

SAVEA PT " Programmatype. " 

SAVEA AP " Aantal programma's per band." 


SAVEA NP$ " Namen van de programma’s per band." 
CURSOR 9,3:PRINT "Het bestand staat op de band. " 
RETURN 


REM dixe HET UITPRINTEN VAN DE TEKST. 3: 


PRINT CHR$ (12) 

PRINT "Indien u tekst wilt uitprinten, zet dan de" 
PRINT "printer aan 'voor' het intypen van de letter" 
PRINT "B, C, D of L voor het uitprinten van het over-" 
PRINT "zicht van de programma’s." 

GOSUB 3999: REM BETC 


RETURN 


REM ####x+ HET OPZOEKEN VAN EEN PROGRAMMA, sx 
T=0:GOSUB 4400:REM BLANCO REGELS 
CURSOR 9,3:PRINT "Naar welk programma moet worden gezocht. ?" 
CURSOR 9,1: INPUT "Type een sleutelwoord van 3 letters. ";89:PRINT : 
PRINT 
IF S$=" " THEN 2436 
F=LEN(S$): IF F»3 THEN 2430 
FOR 1-0 TO AB(Ø)-1:FØR J=9 TO AP(I)-1 

IF LEN(NP$CI,I))4F THEN F=LEN(NPS(I,d)) 

IF LEFTS(NP$(I,J),F)=5$ THEN GOSUB 2530 
NEXT J:NEXT Is IF T>9 THEN 2599 
CURSOR 9,3:PRINT "Sleutelwoord komt in het bestand niet voor. " 
CURSOR 9,1:PRINT “Wilt u een ander sleutelwoord invoeren.! " 
WAIT TIME 200:G0TO0 2609 
IF T=@ THEN PRINT CHR$(12) 


PRINT "Programma met sleutelwoord ";5$;"." 

PRINT "Bandvolgnummer is “3141 

PRINT "Programmavolgnummer is: “dei 

PRINT "Naam van het programma is: "iNP$(I,J);"." 


T=T+1:T1=T MOD 4:PRINT :IF Ti=@ THEN 3900: RETURN 
GOSUB 3909: REM GETC 
RETURN 


REM bte SAMENSTELLEN VAN PNS. Att 
N=1:GOSUB 4490: CURSOR 21,3:PRINT "Even geduld a.u.b." 
FOR 159 TO AB(Ø)-1:FOR J=9 TO AP(I)-1 
NB(N) S I*1: NP C) =J+12 PNS (N)=NP$(1,J) 
LP (N) PL CI, JJ: TPAND=PT CI, di 
N=N+13NEXT Jr NENT I:NzN-1:8-1 
CURSOR 9,3:PRINT "De lijst is samengesteld. 5 
Nei: RETURN 


REM see. SORTEREN VAN PNS. Hit 

GOSUB 4480: CURSOR 21,3:PRINT "Even geduld a.u.b." 
FOR ZI=INT(N/2) TO 2 STEP -1:X-Z1 

KS=PNS CO  L=NB OO : MENP OO : D=LP OO :P=TP OO 
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2849 
2850 
2850 
2876 
2889 
2899 
2900 
2919 
2920 
2930 
2940 
2950 
2960 
2979 
2980 


3590 
3618 
3629 
3639 
3640 
3659 
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Y=X+X 

IF Y?N THEN 2918 

IF Y=N THEN 2886 

IF PNS(Y+1)°PNS(Y) THEN Y=Y+i 

IF K$>=PNS(Y) THEN 2910 

PNS (XO zPNS (Y) : NB OD =NB OO 2 NP OD gNP (Y) 

LP OO SLP COÓTPOO ÁSTPOO0 : XY: GOTO 2846 
PN$ (XO =K$: NB OO e NP OO =M: LP OO =O: TP OO =P NEXT 
KS=PN$ (1) : LENB (1): MENP (1): Oel P (1): P=TP C1) 
FOR Z1=N TO 2 STEP -i:X=1 

Y=X+X 

IF Y>Zi THEN 3010 

IF Y=Zi THEN 2989 

IF PNS(Y+1) >PNS(Y) THEN V=Y+1 

IF K$>=PNS(Y) THEN 3010 

PN$ OO =PN$ CY) : NB (OO NB CO : NP OO gNP CY) 

LP OO LP CO zTPOOSTPOO : XY: 6010. 2940 

PNS (O0 =K$: NB OO =L: NP OO =M LP OO =O: TP OO =P 
K$zPN$ (21) :LENB(Z1) 2 M=NP (ZI) :O=LP(Z1):P=TP (ZL) 
PN$ (Z1) ZPN$ (1) : NBCZ1) ENB (1) 2 NP CZ) NP C1) 
LP(Z1)=LP (1): TP(Z1)=TP (1) NEXT 
PNS (1) ZK$: NB CD) ELE NP (1)=MeLP(1)=0: TP(1)=P 
CURSOR 9,3:PRINT "De lijst is gesorteerd. 
W=1: RETURN 
REM #####% PRINTEN VAN PNS. states 
GOSUB 4490 
CURSOR 9,3: INPUT "Hoeveel regels wenst u per bladzijde. 
IF V>49 THEN GOTO 3120 
POKE 4131,1:PRINT CHR$(12):POKE #131,9:N1=1:N2=N 


"SV: PRINT 


PRINT " Programma overzicht dd. "5;D$(0) 

PRINT " Volg- Band- Progr- Progr- Naam van het programma," 

PRINT " no. no, no. lgt." 

PRINT nn s 


IF N2-N12V THEN NZ=NI+V-1 
FOR Zi=Ni TO N2 

LZzINT (LEN (STR$ (21) )D sLB=INT(LEN(STRS (NB(Z1)))) sLPi= 
INT (LEN (STR$ (NP (Z1)))) 

LLP=INT (LEN (STR$ (LP C21) ) DD sLTP=INT(LEN(STRS (TP C21)22? 
PRINT TAB(7-LZ)$ Z1: TAB (13-LB) 5NB (Z1) 5 TABC19-LP 1) 8NP C21) 1 
PRINT TAB(26-LLP)3LP (Z1) 5 TABCIO-LTP) 8 TP (Z1) 5". "SPNB(Z1) 
NEXT ZliNi=N2+1:NZ=N 
POKE 4131, 1:PRINT :GOSUB 37ØØ:POKE #131,0 

IF N-Ni>@ THEN PRINT :GOTO 3160 
RETURN 
REM sitter BEVEILIGING TEGEN VERLIES VAN DATA. ###### 
GOSUB 4490: REM BLANCO REGELS 
CURSOR 9,3:PRINT "Heeft u niets te bewaren. ? J/N" 
GOSUB 3929:REM BETC 
IF Q=74 THEN 1990: REM 
IF Q=78 THEN 8000: REM 
GOTO 3599 


Bewaren bestand. 
END. 


REM ###44# Mededeling van geen bestand aanwezig Ht 
GOSUB 4489: FOR Dei TO 4 

CURSOR 9,3:PRINT "Er is geen bestand in het geheugen. ! 
WAIT TIME 29 

CURSOR 9,3:PRINT " H 
WAIT TIME 16 
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3660 


3700 
3710 
3720 
3730 
3749 
3759 
3750 


3890 
3819 
3820 
3839 
3840 
3830 
3860 
3899 


3900 
3910 
3920 
3930 
3940 
3950 


4100 
4119 
4120 


4200 
4210 
4220 
4230 
4248 
4250 
4260 
4276 
42800 
4290 


4300 
4310 


4400 
4410 


4420 
4430 
4440 


4609 
4640 
4650 
4668 
4679 
4686 
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NEXT Ds RETURN 


REM as Mededeling over programmalijst. Xs" 

GOSUB 4400: FOR D=1 TO & 

CURSOR 9,3:PRINT "Eerst de programmalijst samenstellen (J). s 
WAIT TIME 20 

CURSOR 9,3:PRINT " 
WAIT TIME 10 
NEXT D: RETURN 


REM eee Mededeling over aanwezigheid van bestand. xix 

GOSUB 4498: FOR D=1 TO & 

CURSOR 9,3:PRINT "Er is reeds een bestand in het geheugen. !" 

WAIT TIME 29 

CURSOR 9,3:PRINT " A 
WAIT TIME 16 

NEXT Dr RETURN 

CURSOR 9,1:PRINT "Type space of return."3;:G0T0 3929 


REM 33:99 GETC ROUTINE 3s 
CURSOR Ø,1:PRINT "Type space. "3 
Q=GETC: G=GETC: Q=GETC 

Q=GETC: IF Q=0 THEN 3930 

IF 8596 AND Q<123 THEN Q=Q-32 
CURSOR 0,1:PRINT " "S RETURN 

REM titt HET VULLEN VAN DE VRYE RUIMTE ARRAY «xx 
FOR C=9 TD A1:TL(C)=0:FOR D=@ TO AP(C)-1 
TL(C}=TL(C) *PL (CC, D sNEXT D: VL(C) 292- TL (CE NEXT CE RETURN 


REM tt PRINTEN VAN EEN OVERZICHT ra 
GOSUB 41ØØ:REM Vullen vrye ruimte array. 


PRINT " Programma overzicht. dd. "SD$(9) 

PRINT " Bandvolgno: "3 I+13 ". "sTAB(21); "Aantal programma's:"; 
PRINT API)", " 

PRINT " Volg- Progr- Vrije bandlengte:":VL(ID;" sec." 
PRINT " nummer. lengte. Naam van het programma." 

PRINT " mm mm nn m e a ^ 
FOR J=0 TO AP(I)-1 

LJ=INT (LEN (STR$ (J+1))) :LPL=INT (LEN(STR$ (PL CI J) DD sLPT- 


INT(LEN(STR$ (PT OS, 2222) 

PRINT TAB(9-LJ) 3391: TAB(19-LPL) 5PLCI, J); TAB(24-LPT) PT CI 25" ";NPS(I, 
J) 
NEXT J: RETURN 


REM ja BLANCO REGELS MAKEN 4 i 
CURSOR @,5:PRINT " 


CURSOR @,3:PRINT " 
CURSOR 9,1:PRINT " 
RETURN 


REM erst BAND-SPOEL-ROUTINE sexe 
PRINT CHR$(12):PRINT "Kies dan hiervoor het juiste nummer." 


PRINT 
PRINT "6 = geen spoelen.: 1=REWL : 2=REW2 : Z=REW3 : 4=REW4" 
PRINT "S=REW : &-SKIPi : 7=SKIPZ : B-SKIPS : 9-SKIP":PRINT 


Q=10: PRINT "Type het juiste nummer in. " 
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GOSUB 3920:REM GETC 
IF Q<49 THEN RETURN 
IF 8557 THEN 4680 
GQ-60-48 

ON D GOSUB 4910, 4820, 4830, 4840, 4850, 4850, 4879, 4880, 4890 
GOTO 4470 

CALLM #FO09:REM REWI 
RETURN 

CALLM #F000:REM RENZ 
RETURN 

CALLM #F@60:REM REWS 
RETURN 

CALLM #F@00:REM REW4 
RETURN 

CALLM #FO09:REM REW 
RETURN 

CALLM #FOOO:REM SKIP1 
RETURN 

CALLM #FQ00:REM SKIP2 
RETURN 

CALLM #F000:REM SKIPS 
RETURN 

CALLM #F900:REM SKIP 
RETURN 


REM TOEWIJZING VARIABELEN. 

REM AX :=Maximaal aantal cassettebanden i.v.m DIN. 

REM AX dient een veelvoud van 3 te zijn. 

REM AB%:=Aantal banden. 

REM AP%:=Array van aantallen programma’s op een band. 

REM D$ :-Datum string. 

REM LX :-Hulp variabele, 

REM LP%:=Sorteerarray van PLX. 

REM NX s=fantal programma’s. 

REM =Sorteer array voor nummer-band. 

REM NP%:=Sorteer array voor nummer-programma. 

REM NP$:=Array van namen van de programma’s. 

REM =Array van pragrammalengten in seconden. 

REM PN$:=Sorteer array van NPA. 

REM PTA:=Array van programmatypen (0,1) en data (2). 

REM 5% :-Teller bij het samenstellen van de programmalijst. 

REM T4 :-Teller bij het printen na zoeken. 

REM TLX:-Array van totale lengten op de band in seconden. 

REM TP%:=Sorteer array van PTZ. 

REM V% :=Aantal regels per bladzijde bij printen. 

REM VLZ:-Array van vrye ruimten op de banden in sec. 

REM WX :=Teller tegen nieuwe menu tekst. 

REM ZX :-Teller voor al of niet aanwezigheid bestand in geheugen. 
REM e. UITLEG EN AUTEUR NAAM eee 
PRINT CHRS$(12):PRINT " RE 
PRINT 

PRINT "Dit programma voorziet in een complete en overzichtelyke" 
PRINT “administratie van het DER cassettebanden bestand, bestaan-" 
PRINT "de uit programma’s, zowel in BASIC (6),als in ASSEMBLERTAAL" 
PRINT "(1) en DATA (2)." 

PRINT "Het programma kent als cassetteband-eenheid de cassetteband-" 
PRINT "kant, dus kant A nf B. De tijdsduur voor het spoelen (CHECK)" 
PRINT "van een kant is vastgesteld op 96 seconden. Daarvan wordt 4" 
PRINT “seconden gereserveerd voor de, aan het begin van de band," 
PRINT "aanwezige DCR Tapecontrol. Rest bandlengte bedraagt dus 92" 














UITLEG PROGRAMMA HEHEHE 
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“seconden, Elk programma of data bezet een plaats op de band," 
“waarvan de lengte wordt uitgedrukt in seconden looptijd van" 
"de band." 


POKE #131,1:GOSUB 3900:PRINT CHR$ (12): POKE #131,9 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"Geadministreerd worden: * 


i Datum, " 

! Aantal banden (lees band-kanten)." 
Programma lengte (of data lengte), " 
Programma type (0, 1 of 2)," 

Aantal programma's per band." 

Namen van de programma's per band." 


"Het DCR Tapecontrol programma is herzien en aangepast aan" 
"dit programma. In de kop van dit programma is een constante" 
"AZ gedeclareerd, die geheugenruimte voor 4% cassetteband-" 
“kanten data reserveert. Al naar behoefte kan de waarde van" 
“AL worden aangepast, rekening houdend met de beschikbare" 
"geheugencapaciteit," 


PRINT "AZ dient een drievoud te zijn.” 

PRINT 

PRINT "Veel succes ermee," 

POKE #131,1:60SUB 3909: PRINT CHR$ (12) : POKE #131,0 

PRINT 

PRINT " TE AER NNI MHI III IEN NHJ HHN EE I C 
PRINT " * *" 
PRINT " * PROGRAMMOTEEK x" 
PRINT " * at 
PRINT " * AUTHOR: Ing. L.C.J. Dietz x" 
PRINT " * St. Josephstraat 12 x" 
PRINT " * 5961 GM Horst (L) x" 
PRINT " * The Netherlands 2° 
PRINT " * Phone 94709-1442 x" 
PRINT " * DAI Personal Computer +" 
PRINT " # Horst, januari 1984, *" 
PRINT " * Lad 
PRINT " PRE MEME AE AE IEE AEAEE EEE I EI 
GOSUB 3900: PRINT CHR$ (12) : RETURN 


GOSUB 


4499: CURSOR 21,3: END 


———— M—MMM—— E 
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A LOW COST DIGITIZER 


Cher monsieur hermans 


Je vous remercie pour l'interet que vous avez 
porte a mon convertisseur.Suite a votre demande 
je vous envoie les plans ainsi que le software 
necessaire pour le faire fonctionner. 


CARACTERISTIQUES GLOBALES: 


- utilise le mode 6 (336*256 points,4 niveaux de gris) 
- temps de conversion = 12 sec (durant lesquelles l'image 
doit rester immobile) 
- le balayage de l'image se fait de gauche a droite 
- utilise le DCE-BUS (connecteur de 34 pins) 
- utilise un signal video standard (*) accesssible sur 
tout les magnetoscopes(1V,75 OHMS = VÍDEO OUT) 


(*) REM: les meilleurs resultats ont ete obtenus avec 


des images en noir et blanc. 


COMMENTAIRES GENERAUX SUR LE HARDWARE: 


La simplicite de la realisation a pu etre obtenue 
en adoptant les principes suivants : 


- utiliser un systeme de declenchement analogique 

- faire executer le maximum d'operation par le software 
- convertir sur 4 niveaux seulement puisque le DAI est 

limite a 4 niveaux (pour les modes sans restrictions) 
ne recourir a aucune RAM externe (utilisation directe 
de 1a RAM video du DAI 


COMMENTAIRES GENERAUX SUR LE SOFTWARE 


Le role du software est de : 


- gerer les signaux de synchronisation de ligne et de trame 
- imprimer au fur et a mesure sur l'ecran le resultat 
de la conversion | 
- supprimer les problemes d'entrelacage entre les lignes 
paire et impaire en ne prenant qu'une image sur deux 
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SA REALISATION 


Ne disposant que d'un prototype du convertisseur sur 
plaquette d'essais (**),je ne peux donc pas vous fournir 
les masques necessaires a la realisation du circuit 
imprime. 


(**) Ce convertisseur n'exige par consequent aucune 
precaution HF particuliere, 


Remarque sur l'alimentation : 


Personnellement, j'ai prefere ne pas risquer d'utiliser 
directement les tensions (-5,+5,+12V) accessibles sur 
le connecteur du DCE-bus (l'alimentation du DAI etant 
assez mal protegee) . Il me semble plus sage d'uiliser 
une alimentation stabilisee exterieure (-6,+5,+12V). 


Å titre de renseignement voici les consommations du 
convertisseur sur les differentes tensions : 
T(12V)=23 mA : I(5V)=14 mA : I(-6V)=17 mA 


LES REGLAGES 


Le convertisseur possede en tout deux types de reglages : 


a) le reglage des niveaux de gris 
b) le reglage de la largeur de l'image 


a) Ce reglage est indipensable pour obtenir des resultats 
visibles.Il concerne les 3 TRIMPOTS de 10K que nous 
appelerons B1,82 et B3,Avec : 


B3=transitions blanc = gris clair, 
B2-transitions gris clair - gris fonce. 
Bl=transitions gris fonce - noir. 


Par consequent Bl devra commuter sur des niveaux plus 
faibles que B2 et B2 sur des niveaux plus faibles que B3 
(soit B3 > B2 » BĲ) 


Afin de faciliter ce reglage a tout ceux qui ne possede 
pas d'oscilloscope,j'ai egalement realise une mire de 
test ainsi qu'un programme utilitaire BASIC qui imprime 
l'etat des 3 comparateurs a differents endroits de 
l'image. 
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Methode de reglage 


- enregistrer la mire sur un magnetoscope. 
- connecter le magnetoscope au convertisseur ( mode PLAY). 
- charger le programme "REGLAGE" + RUN 
- controler l'activite des 3 comparateurs. 
c'est a dire 1) verifier B3 >= B2 >= Bi 
2) essayer d'obtenir 
pour les differentes nuances : 








Bi B2 B3 
1 1 1 (noir) 
0 1 i (gris fonce) 
0 0 1 (gris clair) 
0 0 0 (blanc) 
- modifier en consequence les TRIMPOTS B1,B2,B3 
- ETC... 
rem: 


Il est possible que le reglage de la largeur de l'image 
(TRIMPOT 100K) interfere avec celui ci.Il sera par consequent 
preferable de passer aux essais de fonctionnement reel 

des que les comparateurs commencent a commuter (c'est 

a dire lorsque les triades de chiffres changent de valeurs) 
et de regler la largeur de l'image (b). 


CHARGEMENT DU SOFTWARE 


LOAD "DIGITIZER" 
RUN 
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r ec ie cr A — 

















U710 (14 PINS) LM324 (14 PINS) 74LS175 (16 PINS) . 
EE LLL LAM 22 PAGE Ol --  DIGITISER 
"oun e a uL NM 5 REM SOFTWARE FOR DIGITIZER 
2HiGND'- Ever], tes s inem 1-14 1-1-CLR 5V 1-16 is POKE #FEO3,#8B:REM INIT 8255 
EON ! LA it. Å le ee ! | 20 COLORG 3 7 11 13 
ET ad Zeie Nee pg pets ug OG 091815 ke Cd MODE 
IJ 32129 tono DE Je AL ! ! ! 40 FOR ADD=#E00 TO #EOF:READ A:POKE ADD, A: NEXT 
Ate o 3-1 / \ +t 1-12 3-1-Q TI -Q 1-14 50 FOR ADD=#F800 TO #F88F:READ A:POKE ADD,A:NEXT 
EN ! NE ME ! ! ! 60 POKE #FEOO,#FF:WAIT TIME 10:POKE #FEOO,#O:REM RESET 
6-1-6V H 4-112V -6V!-11 4! D ! D 1-13 * 70 WA] T T ME 70 
are FON / 3 lesen) 80 CALLM 4F800 
5-1-14 \ / +! 1-10 5-! D ! DI 90 GOTO 60 
TEN E NES ! ! ! 1000 DATA #0,#0,#1,#1,#0,#0,#80,#80,#1,#1,#80,#80,#81,#81, #81, #81 
6-i-t- / 1 1 Vet 19 6-!-Q I -Q I-11 1010 ATA 245,229,213,197,243,33,0,0,34,2,13,33,235, 191, 34,0 
a NE c E ! ! ! 1020 DATA 13,33,1,254,6,6,62,255,166,250,24,248,175,182,250,20 
EE e 1-8 7-1Q ! Q 1-10 1030 DATA 248,5,194,29,248,175,182,242,38,248,17,163,0,27,122,179 
zc SEI DM Ice 1040 DATA 194,45,248,6,14,17,0,15,62,255,166,250,58,248,126,230 
8-!GND CLK!-9 1050 ATA 14,79,10,18,28,194,56,248,17,0,15,1,167,255,42,0 
sr 1060 DATA 13,26,7,126,23,119,43,26,15,126,23,119,9,28,194,81 
1070 DATA 248,1,0,90,9,34,0,13,235,42,2,13,35,34,2,13 
1080 ATA 235,123,230,7,194,17,248,1,254,255,9,34,0,13,123,254 
1090 ATA 80,194,17,248,122,254,1,194, 17,248, 251,193,209,225, 241, 201 
PAGE Ol ~- REGLAGE 





REM CE PROGRAMME EST DESTINE AU REGLAGE DES 3 COMPARATEURS 
POKE #FEO3,#8B:REM INITIALISE 8255 

















WAIT TIME 100 


2 
5 
6 POKE #FEOO,#FF:WAIT TIME 5:POKE #FEOO,#0:REM RESET INTERFACE 
7 
8 PRINT "B1","B2","B3" : PRINT 


9 REM IMPRIME 21 VALEURS D'ECHANILLONS SUR TOUTE L'IMAGE 
10 FOR I=0 TO 20 
12 1 WAIT TIME 26 
15 l A=PEEKC#FEOL) IXOR #FF 
20 1 PRINT (A SHR 1.0) IAND 1.0,(A SHR 2.0) IAND 1.0,(A SHR 3.0) IAND 1.0 VEROVERING VAN MEMORY ALPHA 
30 NEXT 
40 GOTO 5 
Vanuit een ruimteschip wordt je alleen 
1000 REM CORRECT VALUES ARE : achtergelaten op een donkere planeet, De 
1010 REM 1 1 i (NOIR) bedoeling is om de basis Memory Alpha te 
1020 REM 0 1 t (GRIS FONCE) bereiken via ingetypte commando's op de 
1030 REM 0 0 1 (GRIS CLAIR) computer. De computer geeft op elk 
1040 REM 0 0 0 (BLANC) commando een ge-past antwoord of 
1050 REM aanwijzing. 
2000 REM EX OF UNCORRECT VALUES : 
2010 REM 1 0 1 Bl TRIMPOT » B2 TRIMPOT LEVEL 
2020 EM -» REDUCE Bl OR INCREASE B2 TRIMPOT LEVEL 
2030 EM 1 1 0 B3 TRIMPOT < Bl AND B2 TRIMPOT 
2040 REM Bl=B2=B3=ALWAY O -»ALL TRIMPOT ARE TOO LOW 
2050 EM Bl=B2=B3=ALWAY I ->ALL TRIMPOT ARE TOO HIGHT 





EEE 





PAGE Ol -- MIRE DE TEST 

2 REM MIRE DE TEST POUR LES REGLAGES DES COMPARATEURS 
3 MODE 3 

10 FOR X1=0.0 TO XMAX*3,0/4.0 STEP XMAX/4.0 

20 1 READ COL':FILL X!,0 X1+XMAX/4,YMAX COL! 

30 NEXT 

40 GOTO 40 


1000 DATA 3,5,8,11 
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SPL V1.1 PAGE 2 
RSFL V1.1 FAGE i F827 F2246F8 
F826 H 
å F82A 114308 
H ODE EERE DE DE DE AE HAE KER ELLER HAHA F82D 1B TEMP 
? E * DIBITIZER SÜFTWARE * FAZE 7A 
09060 H * * FB82F BS 
eooo E * WRITTEN BY PASCAL DE LAET * F836 C22DF8 
0908 5 VEER RICE IE LEAKE KERN BE ERK RHR ESF Fess H 
2688 H F833 3 
9090 B=FEGL PORTE EQU GFEO1H F833 : 
6500 o BUF EQU OF GBH WORKING AREA (=254 BYTES) FAJI O60E 
6000 @=FFA7 DLTYMi EQU 1H-5AH :1 - LINE SIZE (MODE 4) Fass D 
2666 B=BFEB BEBVID ERU GBFEBH i SCREEN TOP F825 11900F 
$000 B=5400 SETUP EAU SAGØH SCREEN SIZE (MODE 4) : FB38 3 
9000 B=90A3 TEMPO EOL OH VERTICAL FOSITION OF WINDOW F838 3EFF ST 
2096 H FBIA oe" LOF 
NHA ORG DPPH FS3B FAZAFS 
DoD ppop VIDEO DW eH 3VIDEO RAM FOINTER F83 H 
oDo/ 6600 COMFT DU GH SVERTICAL LINE COUNTER F83E 7E 
HDO4 H F83F E66E 
ene4 üRG OEOOH F841 H 
DEGO 200901 TABLE DE DH, OH, 1H, 1H, DH, OH, BOH, BAH, 1H, 1H, GOH, BOH, 81H, 81H, B1H, 81H F841 4F 
BELG y xl ed Fe42 64 
GELD E MAIN PROGRAM F843 E 
BELG : F843 12 
BELA ORG 8FBQGH F844 1C 
F800 FS PUSH FSW F845 C238F8 
F891 ES PUSH H F848 i 
FBez2 DS PUSH D F848 1 
F883 CS FUSH B F848 1 
F864 FI DI F848 å 
Fees H F848 119600F 
FRØS 210000 LXI H eH F84B i 
Feed 228260 SHLD COMPT RESET LINE COUNTER F84H  O1A7FF 
FAGE H F84E E 
FOR  21EBBF LXI H BEGVID F84E 246000D 
FRGE 226000D SHLD VIDEO LET VIDEO POINTER=SCREEN TOF Fes. E 
Fait ` F851 BOUCL 
FBii H F8S2 67 
FØLL 2101FE DEBUT LXI H FORTE DEF HL=FORT B ADD (8255) Fass E 
FB14 H F8S3 7E 
F814 H WAIT BLANEING SIGNAL F854 1 
F814 i Faas 77 
F814 64466 LIGNE MVI E &H LOAD BLANKING SIGNAL DELAY Fass H 
FBIG- JEFF MVI o BEFH :SET BIT 7 F856 2B 
F818 H F857 H 
F818 Ab LOOF ANA M Fea? 1A 
F819 FALGFB JM LOOF 3WAIT R7 DOWN (S255) Fase or 
ER1C i F859 1 
FBIC AF XRA A RESET BIT 7 FES? 7E 
FBiD B6 LOOF1 DRA M Fama 7 
F81E FAiA4F8 JM LIGNE :JUMF IF LINE SYNC DETECTED Fes. 77 
F821 i FSSC : 
F821 85 DCR B FSSC a9 
F822  C21DFG JNZ LODF1 F8SD iC 
F825 ‘ F8SE C251F8 
F825 x NOW BLANKING SIGNAL IS DETECTED Faal H 
FB23 5 Fażi @1225A 
FBES AF XRA A 3WAIT THE BLANEING SIGNAL END 
F826 BG WarTUP ORG M 
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JP 


LXI 
CX 
MD 
DRA 
JNZ 


D 
D 
Å 
E 


WAITUF 


TEMFO KADJUST THE WINDOW FOSITION 


TEMP 


LOAD 255 PIXELS FROM DIGITIZER TO BUFFER 


MVI 
LXI 
MVI 
ANA 
JM 


HOV 
ANI 


MOV Cp 


B 


D 


A 
M 


an 


LDAX B 


STAX D 


INR 
ANZ 


E 


TABLE/100H 
BUF 
ØFFH WAIT LINE SYNC 
LOF 
CAPTURE THE PIXEL 
EH 
CONVERT IT WITH TABLE 
STORE IT IN BUF 
ST 


PRINT FROM BUFFER TO SCREEN IN MODE 4 


LXI 


LXI 


LHLD 


RLC 


RAL 


DEX 





RRC 


D 


B 


LDAX D 


H 


LDAX D 


MOV A,M 


OV M,A 


MOV &,M 


RAL 


MOV 


DAD 


INR E 


JNZ 


M. 


B 


a 


LXI B 


â 


BUF sLET DE=BUFFER ADD 

DLT YME sDEF BC-1-LINE SIZE 

VIDEO ;RESTORE VIDEO RAM FOINTER 
iLET CY=PIXEL HIGHT BIT 
ıSTORE IT IN VIDED RAM 
:IDEM WITH LOW BIT 
sADAFT VIDEN RAM POINTER 
ADAPT BUFFER POINTER 

BOUCL STREAT THE NEXT PIXEL 

SETUF PYsÓ => YzYMAX 
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EPL V1.1 


F844 
F865 
F845 
Fass 
F848 
F869 
FBAC 
F&D 
F870 
F871 
F871 
F872 
F874 
F877 
Fa7A 
F87B 
Fa7E 
F87E 
FOE 
F881 
Fa84 
Faas 
F887 
FB8A 
FaaA 
FORE 
FBAG 
F88D 
Fase 
F89F 
F896 








C211F8 
GIFEFF 
E 
220000 
7B 
FES® 
C211F8 
7A 
Frei 
C211FB 


FB 
Ci 
Di 
Ei 
Fi 
CH 


FAGE 


E 


DAD 


SHLD 


XCHG 
LHLD 
INX 

SHLD 


XCHG 


MOV 
ANI 
JNZ 
LXI 
DAD 
SHLD 
MOV 
CPI 
JNZ 
MOV 
CPI 
JNZ 


El 

FÜR 
FOF 
POP 
POF 
RET 
END 


n 
B 


AE 


A.D 


unm 


H 
FEW 


VIDEO SAVE. VIDEO RAM POINTER 
; INCREMENT LINE COUNTER 
COMPT SAND PUT IT IN DE REG PAIR 
EDMPT 
7H TEST IF THE FIELD ROW IS FULL 
DEBUT 
OH-2H STHEN FILL THE NEXT FIELD ROW 
VIDED 
TEST IF SCREEN FULL 
Dou 
DEBUT 
iH 
DEBUT 3 THEN END 
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ASTRO INVADERS 


Een mooi en kleurrijk uitgevoerde 
invadersspel. Verhinder dat de 
ruimte-eieren afgeworpen worden 

of je raken. Het spel 

wordt gespeeld met behulp van de 
cursortoetsen (bewegen links-rechts) en 
de eventknop om te schieten. Je kan 
extra bonuspunten verdienen door op ti jd 
de Ufo te raken die af en toe op het 
Scherm verschijnt. Het spel past de 
moeilijkheidsgraad aan (wordt sneller) 
in evenredigheid met de tijd dat je het 
speelt, 
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S4 o à 3 a © IN | 
x rhe 
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ka N 1 
— HI Hoe deelnemen aan de 5e The purpose of this contest 
N verjaardags wedstrijd van is to find the 14 pictures on 
2 2 2 DAlnamic page in one of the Dainamic 
« € = o magazines. 
ES = < N E U zoekt in de verschillende A The magazine number gives 
ë T = N i N DAlnamic jaargangen de 14 B you a character mentioned 
9 o [v] g R N afbeeldingen of teksten van in the conversion table ex. : 
NI NI = EN pagina. C you found illustrations 1 in 
NG Het uitgavenummer geeft U D magazine 12, so this give 
a x [] via de conversietabel een g^ you the character 'L'. 
X | Ka i bepaalde letter. E All 14 characters give you 
x E vb.: U heeft illustratie 1 ge- F the solution. 
à å IN A Re "e N i vonden in de uitgave num- : Put this solution on the 
IS HI vg N x] SQ mer 12. De conversietabel G (compleet filled out) atta- 
Eu > N x N ex bepaalt dat in hokje 1 de let- H ched card and send it to the 
$ & ER ` S ter L dient ingevuld te wor- T redaction. 
ell x N o 3 El] a E den. Als de 14 hokjes cor- À A cotor monitor and other 
gs.» er a 5 i rect zijn ingevuld komt uw J valuable prices can be won. 
ex & NS an i oplossing te voorschijn. K good luck ! 
N IS Stuur uw kaart volledig in- 
gevuld naar de redactie. L 
A Tussen de juiste oplossin- M 
gen worden een kleurenmo- 
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nitor en andere waardevolle 
prijzen verloot. 





